IBB MAINTENANCE DIAGNOSTIC PROGRAM 



PAST NO. 

PAGE 



5129613 
1 



B013 



FILE CONTROL UNIT FLT SECTION 2 



ERR LCC OBJECT CODE 



ADDP STMT SOURCE STATEMENT 



0A00 



2 CLXSTP START 2560 



3 



DECK 



0A0 


SO 13 






0A01 


4 




DC 


XL2'301 3> 


FRCG3AM IC 




OA02 


00 








OA02 


5 




DC 


XLTOO' 


F~AG3 




0A03 


00 








0A03 


6 


CNUB 


DC 


XLI'OO" 


CURREliT RCUTINE SF 




OA04 


0C00 






0A05 


7 




DC 


XL2 , 0000' 


RESERVED 




0A06 


0A10 






OA07 


8 


RTIflDR 


DC 


AL2(RTN1) 


ADDR FIRST RTN 




0»GB 










OA09 


9 




DS 


CiU 






OAOA 


A0<»00C 


i 




OAOC 


10 




DC 


XL3* A04000' 


UDT PRIMARY SPINDLE 




OAOD 


B0100C 


i 




OAOF 


11 




DC 


XL3»B01000' 


UDT SECOND SPINDLE 




OA10 


01 








0A10 


12 


RTN1 


DC 


XLI'01' 






0A11 


80 








0A1 1 


13 




DC 


XL1'80' 






0A12 


13FC 






0A13 


14 




DC 


AL2(STN2) 






0A14 


3C 


87 


118F 






15 




hvi 


JNLY+1,X , S7» 






0A18 


OC 


03 


13FB 


,324 




16 




mvc 


ALMS (4) , TRUCK 






OA1E 


31 


AH 


135D 






17 




LIO 


BESS,X« A4< 






0A2? 


31 


A 6 


13 r F 






18 




LIO 


AVNE.X' A6' 






0A26 


30 


A2 


1257 






19 




SNS 


KNIT-2,X» A2' 


SNS 01 




oa:a 


39 


50 


1256 






20 




TBF 


KNIT-3,X*50' 






OA2E 


CO 


?3 


0A3E 






21 




EF 


FIRS 






0A3 2 


33 


10 


1257 






22 




TBN 


KNIT-2.X' 10' 


SEEK DUSY 




0A36 


CO 


10 


0A3E 






23 




ET 


FIRS 






0A3A 


co 


87 


0A'i2 






24 




B 


ALOE 






0A3E 


CO 


87 


11'^A 






2 5 


FIRS 


B 


TURN 






Or, 'A 2 


CO 


87 


1445 






26 


ALCE 


B 


ACT1 






0A46 


Oc 


\J J 


1F0U 


1390 




27 


ALOFT 


MVC 


AHNE+3 (4) ,MOPE 


SET UP FOR RD IC SHORT TEST 




OA4C 


3C 


FO 


13F7 






28 




mvi 


ALMS-4 ,X'F0» 


RESET 




OA50 


OC 


01 


OBAS 


1 3 8B 




29 




MVC 


ETTA+2(2) .MAY 


READ ID STO 




OA56 


35 


01 


1786 






30 




L, 


TAX.XR1 






0A5A 


3C 


87 


|1DU 






31 




MVI 


STAR+1,X*87' 


TURN CM PRINT MODIFY SWITCH 




0A5E 


OC 


06 


1343 


1324 




3 2 




MVC 


CRUX (7) .TRUCK 


MOVE RTN NUMBER 1 




0A64 


CO 


97 


0B7B 






33 




B 


GNAT 






0A68 


3-3 


01 


1714 






34 


GAB 


L 


HA"M,XR1 






OASC 


OC 


01 


0BA8 


1 38B 




35 




MVC 


ETTA+2 (2) ,MAY 


R" ID SIO 




0A72 


OC 


06 


1343 


1 ^2A 




36 




KVC 


CRUX (7) , TRICK 


HOsE RTN NUMBER 2 




0A^8 


CO 


87 


0B7B 






3 7 




B 


GNAT 






0A7C 


co 


87 


12A7 






38 


STAGE 


B 


BASS 






0A3'! 


OC 


03 


1F0 4 


1379 




3 9 




MVC 


ARNE+3 (4) ,STAI0 


RhIAD DAT CTL FLD 




Olfif 


35 


01 


1810 






4 




L 


STYLE, X?1 


RtfAI) DATA PARA 




0A8A 


OC 


01 


0B.18 


13 8D 




41 




MVC 


ETTA+2 (2) ,NOR 


READ DATA SIO 




.' ° 


OC 


06 


1343 


13 30 




42 




MVC 


CRUX (7) .THICK 


MOVE RTN NLMBER 3 




OA9S 


co 


87 


0B7B 






43 




E 


G.iAT 






0A'.>A 


OC 


03 


1F04 


137? 




44 


STCRM 


MVC 


ARNE + 3 (4) ,S "ILE 


MOVE WR DATA CTL FLD CLK STP 




OAAO 


3C 


00 


1EFF 






45 




MVI 


BARN+255,X , U0' 






0AA4 


OC 


?E 


1EFE 


1EFF 




46 




rtVC 


BARN*254 (255) , BARK 


.^55 




OAA A 


35 


01 


1958 






47 




L 


L0G,XR1 


MS DATA PARA 




OAAE 


OC 


01 


0BA8 


1393 




48 




MVC 


ETTA + 2 (2) ,RAT 


WR DATA SIO 




0AB4 


OC 


06 


134 3 


1 336 




49 




MVC 


CRUX (7) ,THAT 


MOVE RTN NUMBER 4 




OAEA 


CO 


87 


0B7B 






50 




E 


GNAT 






OABE 


oc 


03 


1F04 


13E2 




51 


HASH 


MVC 


ARNE+3 (4) ,TONY 


SE1 UP CTL FLD SR ID CLK 'STP 




O.'.'Jf 


OC 


06 


1343 


1 3 3C 




52 




MVC 


CRUX (7) „THEM 


MOVL* ROUTINE 5 




0»CA 


OC 


01 


OBAO 


1 395 




53 




MVC 


ETTA+2 (2) ,SET 






OADC 


35 


01 


1603 






54 




L 


BRAD,XR1 






oat4 


cr 


87 


f^7E 






55 




B 


GNAT 






0AD8 


OC 


03 


1F04 


1316 




56 


ORB 


MVC 


ARN2+3 (4) ,PASS 


WR DATA UNSAFE ROUTINE 




OADE 


OC 


01 


0F1 1 


CF99 




57 




MVC 


MALL + 5 (2) , HA7L 


RESET START ADDR 




0AE4 


3C 


00 


1EFF 






53 




MVI 


BARN + 255,X'C )' 






0AE8 


OC 


FP 


M? E 


1EFF 




59 




SvC 


BARN+254 (255) , 3APN 


♦ 255 




OAF I 


3C 


1 1 


1E00 






60 




MVI 


BARN,X' 1 1 • 






0AF2 


3C 


07 


11D0 






61 




MVI 


STAR + 1 ,X'07« 


RESET PRINT MODITY SW 




0AF6 


OC 


03 


13F2 


1324 




62 




M"C 


ALMS (4) , TRUCK 






OAFC 


3C 


F9 


13F7 






63 




MVI 


ALHS-4,X ,,? 9' 


SET UP ROUTINE NUMBER 




OBOO 


OC 


01 


0EA8 


1393 




64 




MVC 


ETTA+2 (2) ,RAT 


WR DATA SIO 




OB0 6 


3 3 


01 


153F 






65 




'!, 


DUE,XR1 


SET UP PARA ADDRESS 




OBOA 


cc 


8 7 


0B7b 






66 




E 


GNAT 






OBOE 


oc 


03 


1F0 4 


1 3E2 




6 7 


RAS'. 


MVC 


ARNE : 1 (4) ,TOSY 


SET UP CTI FLD 




0B14 


3C 


00 


1EC0 






68 




MVI 


BARN.X'OO' 


RESET DATA ?L D 




0B18 


OC 


01 


OBAR 


1395 




69 




MVC 


ETTA + 2 (2) ,SET 


WRITE ID SIO 




DATE 


02MAE70 


01 APR70 


06:.AY 70 


O1J0L70 


PEOC ID 


OB01-3 


EC NO. 


571512 


57 15 : 


6 


571513 


571524 




PAGE 


1 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 



FILE CONTROL UNIT FLT SECTION 2 



PART NO. 
PAGE 



SI 2961 3 
IS 



ERB LOC OBJECT CODE 



ADDR STMT SOURCE STATEMENT 



EC 



0B1E 


35 


01 


158U 






70 




L 


SAT, Xft 1 


0E22 


CO 


87 


0B7B 






71 




E 


GNAT 


0B26 


co 


87 


032E 






72 


VIRG 


B 


TRUST 


0B2A 


CO 


87 


12EC 






73 




B 


GOOUT 














7a 


*******ROUTINE TO TERMINATE J 


0B2E 


3a 


08 


0B5C 






75 


TRUST 


ST 


TRYST+3,X'08' 


0B32 


d 


A 2 


0S3D 






76 




TIO 


CRUST, X» A2' 


0B36 


31 


A3 


13C1 






77 




LIO 


ABNSR.X' A3' 


0B3A 


F3 


A1 


01 






78 




SIO 


X'OI'.X'SV 


0B3D 


31 


A3 


1357 






79 


CRUST 


LIO 


CORD, X' A3' 


0BU1 


31 


A3 


0B5E 






80 




LIO 


YORE, X' A3' 


0EU5 


C1 


A2 


0B4D 






81 




TIO 


CRUSH, X , A2« 


0BU9 


CO 


87 


0B59 






82 




B 


TRYST 


0B4D 


31 


A3 


13 57 






83 


CRUSH 


LIO 


CORD, X' A3' 


0B51 


31 


A3 


0B5E 






8U 




LIO 


YORE, X' A3' 


0E5 5 


CI 


A2 


0B5F 






35 




TIO 


BRUSH, X' A2" 


0359 


CO 


87 


0B59 






86 


TRYST 


B 


TRYST 


035D 


8000 






0B5E 


8-7 


YOPE 


DC 


XL2'800O' 


0351 


CO 


87 


021ft 






88 


BRUSH 


B 


PPINT 


0B63 


C6 








0B63 


89 




"C 


XL1*C6' 


0B6« 


C8 








0B64 


90 




DC 


XLV08' 


0BS5 


097A 






0B66 


91 




DC 


AL2 (FRESH) 


0367 


A003 






0568 


92 




DC 


XL2' A003' 


0B69 


CO 


87 


0222 






93 


BROKE 


E 


HALT 


0B6D 


A0 03 






0B6E 


ga 




DC 


XL2' A003' 


0B6F 


CO 


87 


0332 






95 




B 


TRUST+a 


0B73 


U0D9C5C64B«0F1F0 


0B7A 


96 


FRESH 


DC 


CL8' REF. 10' 


0B7B 


31 


A6 


135F 






97 


GNAT 


LIO 


ANNE,X' A6' 


0B7F 


31 


AH 


135D 






98 




LIO 


BESS,X' Aa' 


0B8 3 


3C 


87 


0DA3 






99 




MVI 


RINK+1,X«87' 


0B87 


3C 


07 


0DE7 






100 




MVI 


FOES+1,X'07' 


OBRB 


3C 


07 


106A 






101 




nvi 


EON* .,X'07' 


0B8F 


3C 


07 


ode3 






102 




mvi 


ZONE+1,X'07' 


0B93 


3C 


07 


0C93 






103 




KVI 


DLYSW+1 ,X J 07' 


0397 


3 1 


A3 


13C1 






10tt 




LIO 


AENER,X« A3' 


0E9E 


C1 


A2 


0BA2 






105 




TIO 


FAULT, X« A2' 


0B9F 


F2 


87 


OU 






106 




J 


ETTA 


UBA2 


CO 


87 


118A 






107 


FAULT 


B 


TUHN 


0BA6 


F3 


00 


CO 






108 


ETTA 


SIO 


X '00* ,X'00' 


0BA9 


1C 


04 


13B3 


oa 




109 


PANDA 


MVC 


FAY«-4{5) ,4 (,XR1) 


OBAE 


06 


Vi 


13FB 


134D 




110 




AZ 


ALMS (3) ,TEN (2) 


0P34 


38 


02 


13AF 






111 




TEN 


FAY.X'02' 


0F28 


CO 


90 


0C8C 






112 




BF 


AMILE 


OPBC 


3? 


01 


13AF 






113 




TBN 


FAY,X'01 ' 


OBCC 


r2 


■>o 


98 






11U 




JT 


PEER 


0BC3 


3D 


7A 


13AF 






115 




CLI 


FAY, X'7A' 


0BC7 


F2 


84 


91 






116 




JH 


F-EER 


OECA 


OC 


01 


03D9 


OBDB 




117 




MVC 


•-TAND-t-3 (2) , STALL 


OB DO 


OE 


01 


0BD9 


1 3 A F 




118 




ALC 


STAND+3 (2) ,FAY 


0BD6 


CO 


87 


OBDD 






119 


STAND 


B 


STALE 


OBDA 


OBDD 






OBDB 


120 


STALL 


DC 


AL2 (STALE) 


OBDC 


0000 






OBDD 


121 


STALE 


DC 


XL2'0000' 


OBDE 










OBDE 


122 




DS 


CL1 


OBDF 


co 


87 


ODOA 






123 




8 


PROD 


CBE3 


CO 


87 


0D1C 






12a 




B 


BANA 


0BE7 


CO 


87 


0D32 






125 




B 


CHERI 


OEEE 


CO 


87 


0D't8 






126 




B 


FACT 


OBEF 


CO 


87 


0D58 






127 




E 


TACT 


0BF3 


CO 


87 


0D60 






128 




B 


CAPE 


0BF7 


,_ f: 


87 


0D72 






129 




B 


TRACT 


OBFE 


co 


87 


0E9E 






130 




B 


WORK 


OBFF 


CO 


87 


0EA6 






131 




E 


SHARK 


0CO3 


co 


H7 


OECE 






132 




b 


SALT 


0C07 


CO 


87 


0ED6 






133 




P 


SAINT 


OCOB 


CO 


87 


OEEO 






134 




B 


FOOD 


OCOF 


CO 


87 


OEFA 






135 




P 


STOOP 


0C13 


CO 


87 


0FD3 






136 




B 


SEEP 


0C17 


CO 


87 


103B 






137 




B 


FLAT 


rE 


O2HAP70 


01APR70 


06MAY70 


01JUL7 





NO. 


571512 


571516 


571513 


57152" 





AN 



OPERATION****************** 
STORE RETURN 
SEST FOR EUSY 



NOT INDEX 

FORCE INDEX IN CE SCI! 

SEST FOR EUSY 

NOT INDEX 

FORCE INDEX IN CE MODE 

SEST FOR EUSY 

RETURN 



GET OP DFCP 

SET UP DFDP 
RESET TEST FOR BUSY ERF 
RESET SW 

SET PR SNS SW OFF 
RESET DATA FLD SW 
SET DELAY SW OF" 
FORCE CE MODE 



c*r»DT t / n * r <r -7 ~ tip npp.TDi: r X rr "I]? T O w 
MOVE PAPA TO \ORK AREA 
ADD ONE TC MSG C ITP 



GO TO LIO ROUTINE 
IS THIS A BAD PARA 



RESET BRANCH ADCPESS TO OPIG V AL 
ADD PAPA TO BRANCH TO ADDR 



COMP 


CTL FID 


COMP 


DFDR 


COMP 


DFCR 


GO TC 


i ALT EAR A 


RTN TO f.AJOR PARA 


COMP 


DATA CHAP 


DATA 


CHAR ROUTINE 


INDEX 


: INITIALIZE 


SET P 


i INITIALIZE 


3ESET 


' DFDR 


COMP 


BUSY AND ERROR 


TEST 


SENES PROBFS 


TEST 


HALY WITN SDELAY ON 


TEST 


HALT WITH DELAY OFF 


A-M ROUTINE 




VROG in 




PAGE 



0301-3 
1A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 



"ART NO. 
PAGE 



5129M3 
2 



30i; 



FILE CONTROL UNIT FLT SECTION 2 



EBR LOC OBJECT CODE 



ADDR STMT SOURCE STATEMENT 



OdE 
0C1F 
OC23 
0C27 
0C2B 
0C2F 
0C3 3 
0C37 
0C3B 
0C3F 
0C4 3 
0C47 
0C4B 
0C4F 
0C53 
0C57 
0C5B 
:>C5F 
OCfiO 
0C61 
OC53 
0C&5 
0C69 
0C6E 
0C6F 
0C77 
0C7F 
0C87 

OC8C 
0C92 
0C96 
0C9C 
OCAO 
OCA 6 
OCAA 
OCAE 
0C32 
0C36 
OCBA 
OCS5 
0CC2 

0CC6 
OCCC 
0CD2 
0CD6 

OCEA 
OCDE 
OCE2 
0CE6 
OCEA 
OCEE 
OCF2 
0C56 
OCFA 
OCFi 
OD0 2 
0D06 

ODOA 
OD1C 
0D14 

odi n 

OD1C 
OD2C 



CO 87 10A4 

CO 87 OC6E 

CO 87 10AC 

CO 87 10C« 

CO 87 10CE 

CO 87 1OF0 

CO 87 10FC 

CO 87 1108 

CO 87 1110 

CO 87 1118 

CO 87 1120 

CO 87 1128 

CO 87 1130 

CO 87 113E 

CO 87 114A 

CO 87 11SA 

CO 87 021A 

C6 0C5F 

1D 0C60 

0C8B 0C62 

AOCF 0C64 

CO 87 0222 

AOCF 0C6A 

Cl- 87 12FC 

D7D9C6r7i)9ClDUU0 CC3B 

C5D9D9D6D94060UO 

C2C1C440^7C1D9C1 

D4C1E3C5D9 



oc 

".0 

OC 
31 
OF 
CO 
CO 
36 
36 
36 
36 
36 
CO 

c: 

Or- 
CO 
CO 

34 
3C 
CI 
CI 
3D 
CO 
CO 
CO 
3 A 
CO 
3A 
CO 

OD 
CO 
CO 
CO 

30 

00 



oo 

87 
00 
A3 
00 
01 
87 
01 
01 
01 
01 
01 

s; 

02 
02 
01 
87 

OS 
00 
AO 
A2 
00 
31 
87 
8? 
01 
87 
10 
87 

03 
81 
87 
87 

A4 

01 



1298 
0CC6 
13C2 
13C3 

1298 
0C92 
OCBA 
13D8 
13D8 
13D8 
13D8 
13D3 
CBA9 

1 3CC 
1 3CC 
OCCC 
0C96 

0CF9 
13F0 
OCFA 
0DO2 
13F0 
0CF6 
118A 

ucf:> 

13F0 
0CE6 
13F0 
OCEA 

1F04 
OCAE 
11°A 
OCAE 

13E9 
13E9 



1330 



13AF 



1 3D 8 



1 3CF 
1 3D8 



1 3B3 



13B1 



138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
1,9 
150 
151 
152 
153 
154 
155 
156 
157 
159 
159 
160 
161 
162 
162 
162 
162 
16-> 
164 
165 
166 
167 
16S 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
135 
185 
187 
198 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 



PEES 



LIRE 
3DPAPM 



B 
3 
B 
B 
P 
B 
E 
B 
B 
B 
B 
E 
E 
B 
E 
P 

E 

DC 

DC 

DC 

DC 

B 

DC 

n 

DC 



********** 



AHJLh 
DLYSW 
FANCY 



BVC 
B 

MVC 
LIO 
SLC 
ENZ 
B 
A 
A 
A 
A 
A 
E 
******* *** 



ADV5 
ADV4 
ADV3 
ADV2 
ADV1 



ERGC 
EN GO 



****** 
DANTE 



CART 
BART 



PGR7 
AVA 

BETH 

* ***** 
PROD 



****** 
BANA 



SLC 

BN2 
B 



ANTE 

LIMP 

SHOP 

WHELK 

STAT 

VARY 

WARY 

WINE 

TINE 

WIPE 

WIRY 

MINT 

SINE 

LINV 

ACRID 

POOR 

PRINT 

XL1 'C6' 

IL1'29« 

AL2 (BDPARM) 

XL2' AOC 1 ' 

HALT 

XL2'A0CF« 

GOHUT 

CL29'PR03RAM 



SET N TO 

256 WR OSC TIMES CNT 

Br! TO NEW ROUTINE 

STATUS ROUTINE 

SET WR OSC BIT ON SER DATA ROUTINE 

SET WR OSC BIT OFF SER DATA ROUTINE 

SET SENSE BY BIT 

SET SENSE BY BYTE 

SET SEP CLK OFF SER DATA ROUTINE 

SET SEP CLK ON SER DATA ROUTINE 

SERIALIZE DATA CHAR WITH SENSE 

SERIALIZE DATA ~.:\k?. SENSE AND COM P 



GO TO SCAN FND TOUT IN E 



2PP0R 



BAD PARAMATER' 



SUB ROUTINE TO 

ANDY (1) ,FAY + 1 

ERGO 

FLLA-1 (1) ,FAY 

ELLA, X" A3 ' 

ANDY (1) r ONE 

DLYSW 

ADV2 

0NE.XR1 

0NE,XR1 

0NE,XR1 

0NE,XR1 

0NE.XP1 

PANDA 
SUBROUTINE FOR DELAY 

BEIGE(3) ,TAN 

BEIGE(3) ,ONE 

ENGO 

FANCY 



CONTROL 31! BIT ******** 

SET PARA CNT IN PARA CNTR 
DELAY SSI7CH 
MOVE PARA CHAR TO CE LIO 



CE LIO 
SUBT ONF 
CONTINUE 



FROll PARA 
UNTIL 



CNT 



GO GET NEXT PARA 
********************* 

DELAY COUNTER 



********* 



AND ERROR 



SUBROUTINE TO COMP 9USY AND ERROR 

ST PGRT+3,X'08' 

MVI ANNA,X«00' 

TIO AVA,X'A0' COM? BUSY 

TIO BETH,X»A2» TEST EUSY 

CLI ANNA.X'OO' 

bE PGRT 

B TURN 

B PGRT 

SEN ANNA.X'OV 

B CART 

S3N ANNA,X'10' 

E DART 

SUBROUTINE TO COMPARE CT L FL D 

CLC ARNE + 3 (4) ,FAY + 4 COMP 

BE ADV5 

B TURN 

B ADV5 

SUBROUTINE TO COMPARE DFDR ********* 

SNS BROAD, X'A4< SE'iSE DFDR 

CLC BPOAD(2) , FAY+2 COMPARE TO PARA 



SET IND FOR ERROR 



SET IND FOR BUSY 



********** 
CONTROL FIELD 



DATE 
EC NO. 



02MAR70 
571512 



O1APR70 
571516 



06MAY70 
571513 



1JUL70 
571524 



PROH ID 
PAGE 



3*01- 3 
2 



IBH MAINTENANCE DIAGNOSTIC PROGRAM 



PART NO. 
PAGE 



5129613 
2A 



B013 



FILE CONTROL UNIT FLT SECTION 2 



2RR LOC OBJECT CODE 

0126 CO 81 0C.-.6 

0D2A CO 87 118A 

0D2E CO 87 0CB6 

0D32 30 A6 135B 

0D36 OD 01 13EB 1331 

0D3C CO 81 0CB6 

0D40 CO 87 118A 

0D44 CO 87 0C36 

0D48 36 01 13S4 

0D4C 34 01 13SF 

0D50 ">-j> 01 13B1 

0D54 CO 37 0BA9 

0D58 35 01 13EF 

0D5C CO 87 03A9 



ADDR STHT SOURCE STATEMENT 



0D60 OD 00 1E00 

0D66 CO 81 0C3A 

0D6A CO 37 119A 

0D6E CO P7 OCBA 



0D72 

0D78 

0D7E 

0D82 

0D86 

0D8C 

0D90 

0D93 

0D97 

0D9E 

OD Q F 

:">Da2 

0DA6 

OTAC 

ODBO 

0PB4 

0D38 

ODBC 

CCCC 

0DC6 

OD^A 

ODCE 

0DD2 

0DD6 

ODDA 

ODDE 

0DE2 

0DS6 

ODEA 

ODEE 

0DF2 

ODFS 

0DF9 

ODFC 

OEOO 

0F0 3 

OE07 

OEOB 

OEOF 

0E13 

0E17 

0E1D 

0E2 I 

0E25 

0E29 



CC 00 
OC 00 
3C 6 4 
3C 44 
OC 2 
33 08 
F2 90 
33 04 
33 OH 
38 01 
F2 90 
<~0 87 
OF 00 
CO 01 
3C 87 
3C 07 
3C 07 
CO ;17 
OE 03 

33 01 
CO 90 
3A 08 
CO 97 
3F 8 
31 A3 
31 A3 
CO 87 
CO 87 
C? 87 
38 80 
F2 10 
38 20 
F2 10 
38 20 
F2 10 
CO 87 
CO 87 
CO 87 

34 08 
36 01 
06 31 
30 A3 
3B 80 
3D 02 
CO 01 



1298 

13A8 

13F3 

13F5 

13A7 

13A6 

09 

13F3 

13F5 

13A5 

1E 

OCDA 

1298 

0D78 

0DA3 

0DE7 

ODE 3 

OCB* 

13A8 

13A7 

ODD' 

13F5 

ODDA 

13? 5 

13FU 

13F6 

0E62 

0586 

0D8C 

0E87 

12 

13B8 

13 

13ft9 

OC 

106T 

OEOF 

106D 

0E51 

13D8 

1343 

13C9 

13C9 

0A03 

0E3D 



1330 



1331 
13B0 



13D9 



13D8 



13A8 



134D 



203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

249 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 

268* 

269 

270 



BE 

B 
B 



****** 
CHERI 



****** 
FACT 



****** 

TACT 

****** 
CAPE 



****** 

TRACT 

PART 

R 1' 



STONE 



RACY 



RINK 



BRACT 



RACE 
TRACY 

ZONE 
FOES 
LACY 

FROG 



SNAG 

SUGG 

FRUIT 

BRUTE 



ADV3 
TURN 
ADV3 



B ADV3 
SUBROUTINE TO COMP DFCR 
SNS T0AD,X'A6« 
<~ Tf - T0AD(?) ,FAY + 2 
ADV3 



********* 



CLC 

BE 

B 

B 



TURN 
n ADV3 

SUBROUTINE TO GO 
» THREE, XR1 

ALTAR, XR1 

?AY+2,XR1 

PANDA 



CHECK DFCR 

BRANCH TO ADD 3 TT PTP 



TO ALT PARA 



TO MAJOR PARA 



A 

ST 
L 

B ,«..,„„ 

SUBROUTINE TO RTN 
L ALTAR, XR1 

E PANDA 

SUBROUTINE TO COMPARE DATA 
CLC EARN (1) ,FAY+1 

BE ADV2 

B TURN 

ADV2 



SUBROUTINE TO DATA CHAR 
MVC ANDY (T, , FSY+2 

*""- CARSA( 1) , FA.v,1 
CLK1-',X ? 64' 



MVC 

MVC 

MVI 

MVI 

MVC 

TBN 

JF 

SEE 

SBF 

TBN 

JF 

B 

SLC 

BNZ 

MVI 

MVI 

MVI 

E 

ALC 

TBN 

EF 

SEN 

E 

SBF 

LIO 

LIC 

B 

j 

B 

TBri 

JT 

TBN 

JT 

TBN 

JT 

B 

B 

li 

ST 

A 

AZ 

SNS 

SBF 

CLI 

BNE 



F ET 
C»°"n- 



t ~ - * 

_ 1 (3) ,ONS + 1 

CAREA-~,X' 08> 

RACY 

CLK1- I ,X' 04 • 

FSTE-1 ,X' 04' 

CAREA-3,X '01 ■ 

BRACT 

DANTE 

ANDY (1 ) ,CNE 

PART 

RINK+1 ,X*87 - 

FOES+1 ,X' 07* 

ZONE+1 ,X '07' 

ADV3 

CASEA (4) ,CAREA 

CAREA-1,X'01 ' 

RACE 

FETE-1 ,X»08' 

TRACY 

FETE-1 ,X'08' 

CLK1,X'A3' 

FETE,X'A3' 

BWANA 

GALA 

STONE 

GALA+1 ,X'90' 

SNAG 

ART-7,X' 20' 

S«!Oi> 

ART-6.X' 20' 

SMOC 

ANT 

SMOG 

ANT 

GAS+3, X' 09' 

0NE,XR1 

LRUX(5) ,TEN (2) 

FLUID, X" A3' 

FLUID, X' 80' 

CflU-,X'02' 



********* 



********* 



********* 



CHAP 

CCMF DATA CHAR 

33ANCH TO ADD 2 TO PTT 



******:. t* 



RDSET CLOCK I 10 BYTE 
RESET DATA LIO BYTE 

IS THIS BIT RING 1 

RESET INH DATA CYCLE PEJ 

RESET INH DATA CYCLE REQ 
IS THIS BIT RING & 



RESET SNS PROBES S*> 
RESET DATA FLD SW 

SHIFT BITS 



CE LIO CLOCK 

CE LIO DATA 

DATA FLD CHAR 

SWITCH TO ALLOW PRCBE SENSE 

SNS AT 3IT RATE 



STORE RETURN 

ADD 1 TO CTR 
SNS PROBES 
SET BIT OFF 



HATE 
EC NO, 



02MAR70 
571512 



01 APR70 
571516 



06MAY70 
571513 



01JUL70 
57152C 



PROG ID 

page 



0B01-3 
2 A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 



BO 13 



FILE CONTROL UNIT FLT SECTION 2 



PART NO. 
PAGE 



5129613 
3 



EB3 LCC OBJECT CODE 



ADDR STMT SOURCE STATEBEJT 



0E2E 


3f; 


'0 


1 3C9 


0E3 1 


33 


02 


13C8 


0E35 


CO 


9 


0S3D 


0E39 


3 A 


10 


1 3C9 


0E3D 


4D 





02 13C9 


0E42 


co 


01 


0E56 


05U6 


3C 


07 


0DA3 


GE4A 


CO 


87 


OCDA 


0E4F 


CO 


37 


OEUE 


0E52 


CO 


bl 


ODEA 


0E56 


34 


08 


0E6 1 


OESA 


CO 


87 


1 18 A 


0E5E 


CO 


37 


0E5E 


0E62 


3>5 


08 


13A6 


0E66 


CO 


10 


0E6E 


0E6A 


CO 


87 


ODEA 


0E6E 


31 


AV 


! 35D 


0E72 


3C 


11 


1E0O 


0E76 


co 


87 


0E7E 


0E7A 


CO 


37 


ODEA 


0E7E 


3U 


08 


0E51 


0E82 


CO 


87 


0E17 


0F86 


co 


87 


0E96 


0E8A 


38 


08 


1 3A6 


0E8E 


CO 


10 


OEOF 


0E92 


CO 


87 


ODEA 


0E96 


CO 


87 


OEOF 


0E9A 


CC 


87 


ODEA 


0E9E 


3C 


CO 


1 3C4 


0EA2 


CO 


87 


OSAA 


0SA6 


j>C 


40 


1 3C4 


OEf. J 


3C 


A '■■ 


1 3C7 


OFAE 


38 


C. 


'3C7 


0EB2 


:o 


10 


OCl E 


0EB6 


31 


A3 


13C5 


OEBA 


30 


A3 


13C7 


OEBE 


38 


02 


13C7 


0FC2 


CO 


10 


OCBE 


0EC6 


CO 


87 


1 18A 


OECA 


CO 


87 


0C3E 



OECE jl A'i 1 35D 

OE-.^ CC 87 OCBE 

0ED6 CC 00 OCEE 

OFDC CO 07 OCEA 



OEFA 
OEFE 
0FO2 
0F06 
0F07 
0FO8 
OFOA 
OFOr 
0F12 
OF 18 
0P1C 
0F1D 



3C 87 

CO 87 

CO 87 

41 

26 

1016 

AOFO 

Oc OD 



OE 
CO 
01 
37 



01 
87 



0C9 3 
102 3 
021A 



OFDO 
OF 11 
021A 



1390 



OEEO 30 A? 13C9 

0FE4 33 F8 13C9 

0EE8 OD 00 13C9 13B0 

OEFE CO 8" OCDA 

0EF2 CO 87 118A 

0EF6 CO 87 OCBA 



0F43 
0FD2 



OF 6 
0F07 
OF09 
OFOB 



0F1C 
0F1D 



271 
272 
273 
274 
275 
2^6 
277 
278 
279 
280 
281 
282 
383 
284 
235 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
3 06 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
32 2 

32 3 
324 
325 
326 
327 
323 
i29 
330 
331 
3 32 

33 3 
3 3" 
3 3.i 
336 
337 
338 



DIX 

G,.S 

YELP 

KELP 
B W A N A 

CRIME 

RUBE 
GUi 

SKCG 

****** 
WORK 

****** 
SHARK 

YORK 



S3F FLUID, XMO' 

TBN FLUID-1,X' 02 • 

BF DIX 

SBN FLUID, XMO' 

CLC 2 (1,XR1) ,FLOID 

BNE YELP 

MVI RINK-H,X'07' 

B DANTE 

B GAS 

B LACY 

ST KELP+SfX'GS 1 

B TORN 

B KELP 

TBN CABEA-2,X'08' 

ST CRIME 

B LACY 

LIO B£SS,X'A4' 

KVI MISN.XMI' 

B TOBE 

B LACY 

ST GAS+3,X' 08' 

B BRUTE 

B SKOG 

TBN CAREA-?,*' 08' 

BT SMOG 

E LACY 

E SMOG 

B LACY 



****** 
SALT 

**** 

SAINT 

****** 

FOOD 



MALi 



THIS PUT RING 



RESET DFDP 



STORE RETURM 



IS THIS BUT RING 



SUBROUTINE 
MVI BELL- 

B YORK 

SUBROUTINE 



TO INITIALIZE 
1,X'C0« 



INDEX 



TO INITIALIZE SET TO B 



********* 



********* 



MVI 
SNS 

TBN 
ET 
LIO 
SNS 

TBN 

BT 

B 

E 



EELL-1,X"*0' 

BAH, X' A3' 

8AM,X'02* 

ADV1 

BELL ,f A3' 

BAK, X' A3* 



CHECK PROEES 
3IT RING 

WRITE OSC 



BAM, X' 
ADV1 
TURN 
ACV1 



02' 



SUBROUTINE 
LIO 



SVC 
B 



TO BESET 
BESS,X' at' 
ADV1 

CHANGE BUSY 05 
DART + 1 (1) ,FAY + 
ADV2 



DFD3 



********* 



RESET F DFDR 



ERF OR ROUTINE 



SUBROUTINE TO TEST SENSE 

SNS FLUID, X'A3' 

SBF FLUID, X'FB' 

CLC FLUID{1) ,FAY + 1 

BE ADV2 

B TUR'.-' 

B ADV2 



PROBES 
SENSE 



********* 



PROEES 



****** 
STOOP 



SUBROUTINE TO TEST HALT 

HVI DLYSH+ - .,X'87' 

E NAIL 

B PRINT 

DC XL1'41' 

"C XLI'26' 

DC *L2(PANT-12) 

DC XL2'A0FC 

HVC BALL(14) ,WALL 

ALC MALL+5 (2) ,FRTN 

B PRINT 

DC XLI'OT 

DC XLT37* 



WITH DELAY ON 
SET DELAY SW 



********* 



ON 



ADD 14 TO MOVE FROM ADDRESS 



DATE 02MAR7O 

EC NO. 571512 



01 APR70 
5'/ 15 16 



06MAY7? 
^71513 



01JUL70 
571524 



PROG ID 
PAGE 



OB01-3 
3 



IBH KAINTENANCE JIAGNOSTIC PROGRAH 



PART NO. 
PAGE 



5129613 
3A 



B013 



FILE CONTROL UNIT FLT SECTION 2 



EHB LOC OBJECT CODE 



ADDR STHT SOORCE STATEMENT 



0F1E 


OFCO 


0F1F 


339 




DC 


AL2 (BALL) 


OF20 


CO 87 021A 




340 




B 


PRINT 


0F2« 


06 


0F24 


341 




DC 


XL1 '06' 


0F25 


OC 


0F25 


342 




DC 


XL1 'OC 


0F26 


1022 


0F27 


343 




DC 


AL2 (PANT) 


0F28 


CO 87 0222 




344 




B 


HALT 


OF2C 


AOFO 


0F2D 


345 




DC 


XL2 'AOFO' 


0F2E 


CO 87 1023 




346 




B 


NAIL 


OF32 


CO 87 OCBE 




347 




B 


ADV1 


0F36 


6BC160E6F3D2F26B 


0F43 


348 


WALL 


DC 


CL14' , A-W3K2, A-VJ3R2' 


OF3E 


C160E6F3D9F2 




348 








0F44 


6BC160E6F3D9F26B 


0F51 


349 




DC 


CL14' , A-H3R2, A-H *S2' 


0F4C 


C160E6F3E2F2 




349 








0F52 


63C160E6F3D9F26" 


0F5F 


350 




DC 


CL14', A-H3R2, A-H3 32' 


0F5A 


C160E6F3E2F2 




350 








0F60 


4040404040404040 


0F6D 


351 




DC 


CL14' » 


0F68 


404040404040 




35 l 








0F6E 


63C160E6F3D2F26B 


0F7B 


352 




DC- 


CL14' , A-W3K2, A-W3L2* 


0F7 6 


C160E6F3D3F2 




352 








0F7C 


40404040404040<;o 


0F89 


353 




DC 


CL14' • 


0F6 4 


404040404040 




353 








0F8A 


4040404040404040 


0F97 


354 




DC 


CL14' ■ 


0F9 2 


404040404040 




354 








0F9 8 


0F03 


0F99 


355 


HALL 


DC 


AL2 (HALL) 


0F9A 


40C9C640C3D6S4D5 


0FC2 


356 




DC 


CLU1' IF COUNT IS OTHER 'HAN 10 REPLACE A-W3J2' 


0FA2 


E340C9E240D6E3C8 




356 








OFAA 


C5D940E3C8C 1D540 




356 








0F32 


F1F040D9C5D7D3C1 




356 








OFBA 


C3C5U0C160E6F3D1 




356 








0FC2 


F2 




356 








0'C3 


40404040401:04040 


OFDO 


357 


BALL 


DC 


CL14" ' 


ore? 


404040404040 




357 








CFD1 


OOOF 


0FD2 


358 


FRTN 


DC 


XL2'0OOE' 








3 59 


****** 


SUBROUTINE TO TEST HALT WITH DELAY OFF ********* 


OFD3 


3C 07 0C93 




3 60 


SEEP 


HVI 


DLYoW*1 ,X'07« SET DELAY SW OFF 


0FD7 


CO 87 1023 




i61 




B 


NAIL 


OFDB 


CO 87 021A 




162 




g 


PRINT 


OFDF 


06 


OFDF 


3S3 




OC 


XL1'06« 


OFSO 


OC 


OFEO 


364 




"C 


XL1 'OC 


OFE1 


1022 


0rE2 


365 




~>C 


AL2 (PANT) 


OFE3 


CO 87 0222 




366 




£ 


ha:.t 


OFE7 


AOFO 


0FE8 


367 




DC 


•aL2'AOF0' 


0FE9 


CO 87 1023 




368 




g 


NAIL 


OFED 


CO 87 OCBE 




369 




B 


ADV1 


OFF1 


40C3D6E4D5E340D7 


1022 


370 


PANT 


DC 


CLSO' COUNT P-JLSES ON CE FRO BE- SHOULD Br 10-PRE 


0FF9 


E4E3E2C5E240D6D5 




3 70 








1001 


40C3C540D7D9D6C2 




370 








1009 


C560E2C8D6E4D3C4 




370 








101 1 


40C2C540F1F060D7 




370 








1019 


D9C5E2E240E2E3C1 




370 








1021 


D9E3 




370 








1023 


34 08 103A 




371 


NAIL 


ST 


TACK+3 ,X" Oh' 


1027 


OC 2 13CC 1 3CF 




372 




HVC 


EFIGE(3) ,TAN 


102E 


OF 02 1 3CC 13D8 




373 


SFIKF. 


SLC 


BEIGE (3) ,0N" 


1033 


CO 01 102D 




374 




BNZ 


SPIKE 


1037 


CO 87 1037 




375 


TACK 


B 


TACK 








376 


****** 


SUBROUTINE TO SET UP A-H CHAR ********* 


103B 


OC 00 13BF 13B0 




377 


FLAT 


hvc 


ART (1) ,FAY + 1 * AH CKAP ROUTINF 


iOU1 


OC 00 13BE 13E0 




yn 




KVC 


ART-1 (V, FAY+1 


1047 


OC 00 13BD 1331 




379 




HVC 


ART-2( 1) .FAY+2 


104C 


OC 00 13EC 13E1 




l-"!0 




SVC. 


ART-3 (1) ,r AY + T 


1053 


OC 04 1 3BB 13DA 




H 1 




HVC 


ART-4 (3) ,0NE+2 


1059 


3C 24 13C0 




H2 


r. *.. * N 


HVI 


ABNER- 1,X'24» CLOCK BYTE RESET 


105E 


3C 04 13C2 




i ••. i . 


.-2 A IN' 


.HVI 


ELLA-1,X'04' DATA EYTE RESET 


106 1 


38 01 13B7 




IMtl 


'> 


TPN 


ART-8, X'O 1' 


106 5 


CO 10 109C 




i"S 




BT 


ORGY 


1069 


CO 07 ODEE 




(Mf. 


?." \ 


Q 


FROG 


10 61; 


38 80 1 3aC 




'.HI 


ANT 


TBN 


ART-3, X' 80' TURN ON AH BIT 


DATE 


02h.4R70 01APR70 


O6NAY70 


01JUL" 1 


PRCG ID 


EC NO. 


571512 571516 


5715 13 


57152^ 


PAGE 



s.ar; 



OP01-3 
3 A 



IER MAINTENANCE DIAGNOSTIC PROGRAM 



PAPT NO. 
PAGE 



5129613 
4 



B013 



FILE CONTROL UNIT FLT SECTION 2 



EPR LCC OBJECT CODE 



ADDR STHT SOURCE STATEMENT 



1071 


F2 


10 


OA 




388 




JT 


KL1 






1074 


33 


80 


13BE 




389 


BAT 


TBN 


ART-1,X" 80« 


TURN ON DATA BIT 




107 8 


F2 


10 


OB 




390 




JT 


AXE 






107H 


F2 


87 


OC 




391 




J 


BAT 






107E 


3A 


10 


13C0 




392 


ACT 


SBN 


A3NER-1,X' 10" 


SET AR BIT ON 




1082 


co 


87 


1074 




393 




E 


RAT 






1086 


3A 


08 


13C2 




394 


AXE 


SBN 


ELLA-1 .X'OS 1 


SET DATA BIT ON 




108A 


31 


A3 


13C1 




395 


BAT 


LIO 


ABNER.X' A3» 


CE LIO FOR CLOCK TIKE 




108E 


31 


A3 


13C3 




396 




LIO 


ELLA, X' A3' 


CE LIO FOR DATA TIRE 




1092 


0E 


09 


133F 


13BF 


397 




ALC 


ART (10) ,£RT 


SHIFT BITS 




1098 


CO 


87 


1059 




398 




B 


ELAN 






109C 


3C 


07 


106A 




399 


ORGY 


BVI 


EON+1,X«07« 


SET SW OFF FOR SENSE PR 




10A0 


CO 


87 


0CB6 




400 




B 


ADV3 
















401 


****** 


SUBROUTINE TO SET N TO 


********* 




10a4 


3C 


00 


1F04 




402 


ANTE 


BVI 


ARNE+3,X»00» 


SET N BYTE TO 




10A8 


CO 


37 


0C3E 




403 




E 


AEV1 
















404 


****** 


SUBROUTINE TO FORCE 256 X 


PARA CNT OSC ********* 




10AC 


OC 


00 


13F0 


1330 


405 


SHOP 


BVC 


ANO-1 ( •!) ,FAY+1 


BOVE COUNT TO COUNTER 




10B2 


31 


A3 


13A4 




L'06 


SE?AL 


LIC 


ARID,X' \3» 


CE LIO WR OSC 




10B6 


OF 


01 


13F1 


13D8 


4<n 




SLC 


ANO (2) ,ONE 


SDBT ONE 




103C 


CO 


01 


10B2 




408 




ENZ 


SEPAL 


CONT TILL 3 £ERP 




lO'-O 


CO 


87 


0C3A 




t09 




E 


ADV2 


3HT NEXT PARA 














410 


* * r- * * * 


SUBROUTINE TO BRANCH TO NEW ROUTINE ********* 




10CU 


OC 


01 


10CD 


i:bi 


411 


HHFIK 


BVC 


BFAT + 3 (2) ,FAY+2 






10CA 


CO 


87 


10CA 




412 


BEAT 


E 


BEAT 
















413 


***-*.♦»**** 


SUBROUTINE TO CHK STATUS *****-**** 




10CE 


30 


A2 


13A0 




4)4 


STAT 


SNS 


WAD,X« A2« 


SENSE BYTES / AND 1 




1032 


30 


A3 


13A2 




415 




SNS 


KED,X« A3' 


SENSE BYTES 2 AND 3 




10D6 


33 


48 


13A0 




416 




S3F 


WAD,X' 48* 


SET DONT CASE BITS OFF 




10DA 


3B 


73 


13A1 




417 




SBF 


WED-1 ,X'73' 


SET DONT CARE BITS OFF 




10DE 


03 


02 


13A1 


1 3B2 


418 




CLC 


WED-1 (3) ,FAY+3 


COMP STATUS TC PARA 




10E4 


CO 


81 


OCAE 




419 




BE 


ADV5 






10E8 


CO 


87 


118A 




420 




E 


TURN 






lore 


CO 


87 


OCAE 




421 




B 


ADV5 
















422 


******* SET 


WR OSC BIT ON SERIAL 


DATA ROUTINE*************** 




1CFO 


3A 


40 


0D7»" 




423 


VARY 


SBN 


OPE+1,X'40' 


set:;et osc bit on 




10F4 


3A 


40 


0DS3 




424 




S3;: 


ORE+5,X'40' 


SET OSC BIT ON 




10F8 


CO 


87 


OCBE 




425 




B 


ADV1 
















426 


******* SET 


WR OSC BIT OFF SERIAL 


DATA FOUTTNE**********^*^^ 




10FC 


3B 


40 


037 F 




427 


WARY 


SBF 


ORE+1, X'40' 


SET OSC BiT OFF 




1100 


33 


40 


0D83 




428 




SBF 


OSE+S.X'UO 1 






1104 


CO 


87 


0C3E 




429 




E 


ADV1 
















430 


*******SET 


SENSE BY ft~n******** ************** * 




1108 


3C 


87 


0E87 




431 


MINE 


BVI 


GALA+1 ,X'87« 


SET SENSE TO BIT PATE 




1 10C 


CO 


87 


0C3E 




432 




E 


ADV1 
















433 


******* sET 


SENSE BY BYTE***+****************** 




1110 


3C 


07 


0E87 




434 


TINE 


BVI 


GALA+1, X'07' 


SET SENSE TO BYTE RATE 




11m 


CO 


87 


0C3E 




435 




B 


ADV1 
















436 


******* SET 


SEP CLK CFF SERIAL DATA ROUTINE ******->*********** 




1118 


33 


20 


0D7F 




437 


WIRE 


SBF 


0RE+1.X' 20' 


SET SEP CLK BIT OFF 




111C 


CO 


87 


OCBE 




438 




B 


ADV1 
















439 


******* set 


SEP CLK ON SERIAL DATA ROUTINE**************** 




1120 


3A 


20 


0T57F 




440 


WIRY 


SBN 


0RE+1,X' 20' 


SET SEP 'UK BIT ON 




1124 


CO 


87 


OCBE 




441 




B 


ADV1 
















442 


♦♦♦♦♦♦♦SERIALIZE DATA CHAR WITH 


S EN S*** ****** ************ 




1128 


3C 


87 


0DE7 




443 


HINT 


BVI 


FOES+1 ,X'87' 


SET SW FOR SNS PROBEX 




112C 


co 


87 


0372 




444 




3 


TRACT 
















445 


♦♦♦♦♦♦♦AH CHAR WITH SENSE 


*************** 




1 130 


OC 


OS 


13BF 


1371 


446 


SINE 


BVC 


. RT (10) , SMART 






1136 


3C 


87 


106 A 




447 




BVI 


E0N+1,X , 87' 


SET SW FOR SNS PROBES 




113A 


CO 


87 


1059 




448 




B 


ELAN 
















44 9 


♦♦♦♦♦♦♦♦SERIALIZE DATA CHAR WITH 


SENSE AND RESET DFDB************ 




113F. 


3C 


87 


0DE3 




450 


LINT 


BVI 


!T0N2+1 ,X«87' 






1142 


36 


01 


13D8 




it 51 




A 


0NE,XR1 






1 146 


CO 


87 


0D72 




452 




B 


TRACT 
















453 


*******"IEST CE LIO BODTINE* + ********^******** 




1 14A 


31 


A 4 


1355 




454 


ACRIC 


LIO 


CCI(N,X' A'' * 






1 14E 


31 


A4 


1357 




455 




LIO 


CORD,X' A4* 






DATE 


C2BAR70 


01 APS70 


06'AY70 


•' JL70 


FROG ID 


0301-3 


EC NO. 


57 


1M2 


57 1516 


571513 


•>■"" 52 '» 


PAGE 


4 



IBB MAINTENANCE DIAGNOSTIC PROGRAM 



BOi? 



FILE CONTROL UNIT FLT SECTION 2 



PART NO. 
F- s. G E 



5129M3 
4A 



?RE LCC OBJECT CODE 



ADDR STMT SOURCE STATEMENT 



EC 



11S2 


31 


A4 


1355 






456 




LIO 


CO.fN.X 1 A4' 


1156 


CC 


87 


OCBE 






457 




B 


ADV1 














458 


*********ROUTIN? TO CHECK SCAN 


115A 


3C 


01 


1167 






459 


POOR 


mvi 


F03+1,X '01 » 


'15E 


C i 


A4 


1166 






460 




TIO 


FOfi,X' A4' 


'162 


33 


01 


1167 






461 




SBF 


FOR+ 1,X»01 • 


1166 


3D 


00 


133 






462 


FOR 


C r 


FAY+1,X'00' 


116A 


CO 


81 


0C3A 






463 




B" 


ADV2 


116E 


CO 


87 


118A 






464 




B 


TURN 


1172 


CO 


87 


OCBA 






465 
466 


****** 


B 

V- r * * 


ADV2 

?RINT SUBROUTINE 


1176 


40D540D54040 


1 17B 


467 


OGLE 


DC 


CL6' N N ' 


117C 


3C 


E8 


1271 






468 


ELF 


M VI 


NIBS +2, X 1 E8« 


11 80 


F2 


87 


7C 






469 




J 


FLY 


1183 


3C 


E8 


12/3 






470 


BUG 


mvi 


NIB?+4,X'E8' 


1 187 


F2 


87 


79 






471 




•i 


FLIT 


118A 


3C 


00 


1266 






472 


TURN 


MVI 


OPINE, X'OO' 


118E 


CO 


67 


14F7 






473 


ONLY 


B 


ONCE 


1192 


OC 


15 


126 5 


1266 




474 




MVC 


OPINE-1 (22) , OPINE 


1198 


OC 


CO 


1252 


1298 




475 




KVC 


ANDES (1) ,ANDY 


119E 


34 


01 


1251 






476 




ST 


ANDES-1 ,XR1 


11A2 


OC 


03 


125E 


IT- 04 




U77 


NECN 


MVC 


KITE{4) , AR::E+3 


11 A8 


30 


A2 


125^ 






478 




SNS 


KNIT-2,X' A2' 


11 AC 


30 


A3 


12 






479 




SNS 


KNIT, X' A3* 


11E0 


33 


4A 


12? 






430 




SBF 


KNIT-2,X" U\> 


1 1 Et 


33 


01 


12b 






431 




SBF 


KKIT-1 ,X'01 ' 


11E8 


30 


A6 


126 1 






43? 




SNS 


KIT,X' A6' 


1 1BC 


30 


A4 


1264 






483 




SWS 


KAT, X" A4' 


11C0 


OC 


00 


1266 


1E0O 




484 




MVC 


CPINE(I) ,EARN 


11C6 


CO 


87 


021E 






485 




B 


ONPACK 


11CA 


18 








1 1CA 


4 86 




DC 


XLT 13' 


1 1CB 


1266 






1 1CC 


487 




DC 


AL2 (OPINE) 


1 1CD 


12 97 






" ICE 


488 




DC 


AL2 (UNIT) 


11CE 


CO 


g7 


122E 






489 


STAR 


R 


BURN 


11D3 


OC 


03 


126D 


1 3FA 




490 




MVf~ 


NIE3-2 (4) , ALMS-1 


11D9 


OC 


05 


1275 


117B 




491 


SLAB 


m\ : 


NIBS+6 (6) ,OGLE 


11DF 


3C 


uo 


1269 






492 




MVI 


NIBS-6,X«40' 


11E3 


OC 


01 


1295 


117B 




493 




M VC 


UNIT-2 (2) ,OGLE 


1159 


OC 


01 


123F 


117B 




494 




?;vc 


UNIT-8 (2) ,OGLE 


11EF 


OC 


01 


1239 


117B 




495 




MVC 


UNIT- 14 (2) ,o;L2 


1 1F5 


OC 


01 


127F 


117B 




496 




MVC 


UNIT-24J2) ,CGLE 


1 1FE 


C1 


A2 


117C 






4 97 




TIC 


ELF.X' A2' 


11FF 


C1 


AO 


1183 






498 


FLY 


TIO 


BUG.X" AO' 


1203 


CO 


87 


021A 






499 


FLIT 


B 


PRINT 


1207 


01 








1207 


500 




DC 


XL1 "01 • 


1206 


2F 








1 208 


501 




DC 


XL1 *2F' 


120 9 


1297 






120A 


502 




DC 


AL2 (UNIT) 


120B 


3D 


F9 


13F7 






503 




CLI 


ALHS-4,X , F9' 


120F 


CO 


01 


121B 






504 




ENE 


PALL 


1213 


CO 


87 


021 A 






505 




3 


PRINT 


1217 


06 








1217 


5 06 




DC 


XL1 '06' 


1218 


16 








1218 


507 




DC 


XL1 ' 16 • 


1219 


124D 






121A 


508 




DC 


AL2 (CALL) 


121B 


CO 


87 


021A 






509 


t'ALL 


B 


PPINT 


121F 


15 








121F 


510 




DC 


XL1 '15' 


1220 


CO 


87 


0222 






511 




B 


HALT 


122U 


A001 






■>225 


512 




DC 


XT 2' A001 ' 


1 :' 2 6 


CO 


87 


0B2E 






513 




B 


TRUST 


122A 


CO 


87 


12EC 






514 




B 


GOOUT 


122E 


OC 


0.) 


126F 


1342 




515 


BURN 


MVC 


NIBS (6) ,CRUX-1 


1234 


CO 


87 


11D9 






516 




E 


SLAB 


1238 


40E9C5D7D3C1C3C5 


124D 


517 


CALL 


DC 


CL22' REPLACE A- A 


1240 


40C160E6F3D1F26B 




517 








12a? 


C160E6F3D2F2 




517 


















021A 


513 


PRINT 


EQU 


X'21A' 












021E 


519 


UNPACK 


: EQU 


X'21E« 


124F 










1251 


520 


NOT 


DS 


CL4 


1252 


00 








1252 


521 


ANuES 


DC 


XLI'OO • 


rs 


02MAR70 


01APR70 


06»4Y7) 


0K1UL7 


NO. 


571512 


571516 


5/15 


13 


571524 



FOUND ***************** 



********************* 

MOVE Y TO PRINT 
MOVE Y TO PRINT 
CLEAR UNPACK A?EA 

STORE MSG COUNTS IN F? A?EA 

SENSE 01 
SENSE 23 

SET DONT CARE BITS OF? 
SET DON? CARE BITS OFF 
SENSE DFCF 
SNSE DFDR 



MOVE MSG NUMBER 



MOVE BLANK " 
MOVE BLANKS 



FIDS 
FLDS 



TC PF. 
TO PS 



B-THEEN 
MOVE BLANKS 'JETWEEN 
MOVE BLANKS BETWEEN FLDS TO PR 
MOVE ELANKS BETWEEN FLDS TC PR 
TEST FOR BUSY 
TEST FOR ERROR 



3J2, A-W3K2' 



PROG ID 
PAGE 



OB01-3 
4A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 



PART 
PAGE 



NO. 



5129613 
5 



B013 



FILE CONTROL UNIT FLT SECTION 2 



EBB LOC OBJECT CODE 



ADDR STMT SOURCE STATEMENT 



12 53 








1259 


522 


KNIT 


DS 


CL7 




125A 








125E 


523 


KITE 


DS 


CL5 




125F 








1261 


524 


KIT 


DS 


CL3 




1262 








1264 


525 


KAT 


D3 


CL3 




1265 








1266 


526 


OPINE 


DS 


CL2 




1267 








126F 


527 


NIBS 


DS 


CL9 




1270 








1297 


528 


UNIT 


DS 


CL40 




129 8 


CO 






1298 


529 


ANDY 


DC 


XLI'OO' 














5 30 


**********ROU".INES TO SELECT HEAD 


OR 1 *********************** 


1299 


34 08 


12SF 






531 


BOSS 


ST 


MASK<-3 r X' 03' 


STORE RETURN 


12 9!: 


0C 3 


1F04 


131A 




532 




MVC 


ARNEO (4) ,3ASK 


SET UP FOR HD 1 


12A3 


CO 87 


12B1 






533 




B 


MASS 




12A7 


34 08 


12BF 






534 


BASS 


ST 


"ASK+3 ,X' 08' 


STORE RETURN 


12AB 


OC 03 


1F04 


1316 




535 




MVr 


7NE + 3 (4) ,PASS 


SET UP FOR HD 


1231 


31 A6 


135F 






536 


MASS 


T^T 


.-.NNE, X' A6 • 




12B5 


F3 AO 


00 






537 




SIO 


X'OO' ,X'A0' 


SEEK 


12B9 


CO 87 


12C0 






538 




B 


ANISE 




12BC 


CO 87 


12BC 






539 


MASK 


B 


MASK 














540 


* ********* 


SUBROUTINE TO CHK 3K ! 


3USY *************** 


12C0 


34 08 


1312 






541 


ANISE 


ST 


ANVIL+3,X« 09' 


STORE RETURN 


12CU 


OC 00 


1 3cA 


13D8 




542 




M/C 


BEIGE-2 (1) ,ONE 


SET OP TIME OUT CT? 


12CA 


30 A2 


13A0 






543 


ATTIC 


SNS 


WAD,X' A2' 


SENSE BYTES 1 


12CE 


OF 2 


13CC 


13D8 




544 




SLC 


EEIGE(3) ,ONE 


SUTPACT ONE FROM TIMEOUT CTP 


12E4 


CO 01 


1307 






545 




BNZ 


ARBOR 




12D3 


CO 8 V 


021A 






546 




B 


PRINT 




12DC 


C6 






12PC 


c <*/ 




DC 


XL1 'C6' 




12DD 


OR 






12DD 


548 




DC 


XL1 '08' 




12DE 


1306 






12DF 


549 




DC 


AL2 (FIRE) 




12EC 


A002 






12E1 


550 




DC 


XL2" A002" 




12E2 


CO 87 


0222 






551 


FIRY 


3 


HALT 




12E6 


AC02 






12B7 


552 




DC 


XL2*A002' 




12F.8 


CO 87 


0B2E 






553 




B 


TRUST 




12EC 


31 A6 


UFA 






S5'4 


GOOUT 


LIO 


AZEKOS,X' A6' 




12FC 


F3 AO 


00 






555 




SIO 


X'00',X' AO* 




12F3 


CO 87 


032A 






556 




B 


LOAD 




12F7 


COCO 






12F8 


557 




DC 


XL2'0' 




12F9 


12FB 






12FA 


558 


AZEROS 


DC 


AL2 (ZER0S-3) 




12FB 


COCOOOOO 




12FE 


559 


ZEROS 


DC 


XL4'OO00O00O' 




12FF 


U0D < 5rSr6Un4ns'3Pn 


i 306 


560 


FIFE 


DC 


CL8' p£F, 30' 




1307 


39 10 


13A0 






561 


ARBOR 


TEN 


HAD.X' 1C 


CHECK SEEK BUSY 


130B 


CO 10 


12CA 






562 




BT 


ATTIC 


LOOP IF BUSY 


130F 


CO 87 


130F 






563 


ANVIL 


B 


ANVTT. 




1313 


COCOOOOO 




1316 


564 


PASS 


DC 


XLU'OOOOOOOO' 


SEEK CTL FLD NO MCTION HD 


131 7 


00CO81O1 




131A 


565 


BASK 


DC 


XL4'00008101 ' 




1 3 1 B 


OF 






1 31B 


566 




DC 


XL1'DF< 


CTL FLD FOP SK CHK 


1 31r 


1318 






131D 


567 


SAW 


DC 


AL2(EASK-2) 




131E 


F0F1FOFOFOFOFO 


1324 


568 


TRUCK 


DC 


XL7'FOF1F0FOF0FOF0' 




1325 


F2FOF0FOFOF0 


132A 


569 


TRICK 


DC 


XL6'F2F0FCFCF0FO' 




132B 


F3FOF0F0F0F0 


1330 


570 


THICK 


DC 


XL6'F3F0F0FOF0FO' 




13 31 


F4FOF0F0FOF0 


1336 


571 


THAT 


DC 


XL6'F«F0F0r0F0F0' 




1337 


F5FOFC70FQP0 


133C 


572 


THEM 


DC 


XL6*F5F0F0FOF0PO' 




133C 


FOFOFOFOFOPOFG 


1 343 


57 3 


CRUX 


DC 


CL7'OO0OOOC 




1344 


FGFGFOFCFO 




1 348 


574 


FLUX 


DC 


CL5'0000O ■ 




1349 


F0FOFCF1PO 




1 34D 


575 


TEN 


DC 


CL5'0001O' 




134E 


A300 






134F 


576 


LAP 


DC- 


XL2' A3D0' 




1350 


00C054O3 




1353 


577 


SOAP 


DC 


X„ 00005403' 




1354 


FFFP 






1 355 


573 


CCPN 


DC 


XL2 , FF' 7 F• 




1356 


CCOO 






1 357 


579 


CCPD 


DC 


XL2'0000 • 












0001 


580 


XR1 


EQU 


1 




1358 


COC00005 




135B 


581 


ABYSS 


DC 


XL4'0O00O005' 




13 5C 


1300 






1 3 5D 


582 


BESS 


DC 


AL2 (BARN) 


ADDRESS OF DATA FI£T.D 


135E 


1F01 






135F 


^83 


ANNE 


DC 


AL2 (ARNE) 


ADDRESS OF CONTROL Fi,D 


1360 


D9C5C6U0F1 




1 364 


584 


PALMS 


DC 


CL5'REF 1' 




1 365 


00 






1 J6 5 


585 


SAY 


DC 


XLI'OO' 




1366 


COCOOOOO 




1369 


586 




DC 


XL4'00000000' 




136A 


OOC100O01818C2C2 


1371 


587 


SMART 


DC 


XL8'OO01O00O1818C2C2 


i 


1372 


C0CO c i 


4 00 




1 375 


588 


STILE 


DC 


XL4'C0005400« 


WR DATA CTL FLD 


1376 


00005802 




1 379 


5 89 


STAID 


DC 


XL4'00005802' 


CTL FLD 


DATE 


02MAR70 


01APS70 


06KAY70 


01JUL70 


PROG ID 


EC NO. 


571512 


57 1 5 1 6 


571513 


571 52*4 




PAGE 



OB01-3 
5 



IEf! MAINTENANCE DIAGNOSTIC PROGRAM 



PADT NO. 
PAGE 



512961 3 
5A 



BO 13 



FILE CONTROL UNIT FLT SECTION 2 



ERR LOC OBJECT CODE 



ADDR STMT SOURCE STATEMENT 



137A 


0OFFC401 


137D 


590 


COPE 


DC 


XL4' O0FF04O V 


1375 


C0000OE0 


1381 


591 


REGAL 


DC 


XL4' O000C0E0* 


1382 


13 7E 


1383 


592 


LEGAL 


DC 


AL2 (REGAL-3) 


1334 


00000180 


13 87 


593 


LONG 


DC 


XL 1 ' '000 00 180 • 


13P8 


1 384 


! 389 


594 


GONG 


DC 


AL2 (LONG-3) 


13?A 


A1C1 


1 38B 


595 


MAY 


DC 


XL2' A101 • 


138C 


A 100 


1 38D 


596 


NOP 


DC 


XL2' A100' 


138E 


A1C2 


1 38F 


597 


CFEPA 


DC 


XL2' A102' 


1390 


A103 


1391 


598 


PINS 


DC 


XL2' A103' 


1392 


A2C0 


1393 


599 


RAT 


DC 


XL2' A200* 


1 394 


A201 


1 305 


600 


SET 


DC 


XL2' A201 • 


139 


A301 


1397 


601 


TAP 


DC 


XL2* A30 1 • 


1398 


A302 


1 399 


602 


VIP 


DC 


XL2' A302' 


1 39A 


COCOOOOO 


139D 


60 3 


MOPE 


DC- 


XL4'000O00O0* 


139E 


03 


1 39E 


604 


ROPE 


DC 


XL1 '03' 


139F 


00 on 


13A0 


605 


HAD 


DC 


XL2'000O* 


1 3A1 


0000 


13A2 


606 


WED 


DC 


XL2'0000* 


1 3A3 


4000 


13A4 


6 07 


ARIE 


DC 


XL2'4000' 


13A5 


COCOOOOO 


13AS 


608 


CAREA 


DC 


XL4' 00000000' 


13A9 


CO 


13A9 


609 


CCNTP 


DC 


XL1 '00' 


13AA 


55 


13AA 


610 


FTY5 


DC 


XL1 ' 55* 


13AB 


0000 


13AC 


61 1 


ANY 


DC- 


XL2'0000' 


13AE 


00 00 


1 3AE 


612 


ENY 


EC 


XL2'0000 • 


13AF 


CO 


1 3AF 


613 


FAY 


DC 


XL1 '00' 


13B0 




13B3 


614 




DS 


CL4 


1384 


0000 


13B5 


615 


GAY 


DC 


XL2'O00O' 


13B6 


CO00OO00O00OC0OO 13BF 


616 


ART 


DC 


XLIO'OOOOOOOOO 


13BE 


coco 




61 6 








1 3CC 


0000 


13C ! 


617 


A3SER 


DC 


XL2' 0000" 


13C2 


0000 


1 3C3 


618 


ELLA 


DC 


XL2 '0000' 


1 3C4 


0000 


13C5 


619 


BELL 


DC 


XL2'0000 ; 


13C6 


cooo 


1 3C7 


620 


BAM 


DC- 


XL2*0000' 


13C3 


coco 


13C9 


621 


FLUID 


DC 


XL2'0000* 


13CA 


cooooo 


13CC 


622 


BEIGE 


DC 


XL3 • 000000' 


1 3CD 


01 1000 


13CF 


623 


TAN 


DC 


XL 3 '01 10 00 ' 


1 3DC 


COCOOOOO 


1 3D3 


624 


CANT 


DC 


XL4 ' 00000003* 


1 3D4 


CO 


1 3D4 


625 


BSIND 


DC 


XL1 '00' 


1 3ns 


CO 


13D5 


626 


EPIN 


DC 


XL1 *00* 


- ">nf. 


C00001 


13^3 


627 


nijp 


DC 


XL3' 000001 • 


■ 3D9 


COC002 


13DB 


628 


THC 


DC 


XL3' 000002' 


1 3DC 


C00004 


13DE 


629 


FOUK 


DC 


XL3 'OOOOOU' 


13DF 


10100000 


1 3E2 


630 


TONY 


DC- 


XL4« 101 00000* 


13E3 


00 3 


13E4 


631 


THREE 


EC 


XL2'00O3' 


135 : 




1357 


632 




DS 


CL3 


13E9 


0000 


1 3E9 


633 


BROAD 


DC 


XL2' 0000* 


13EA 


0000 


1 3EB 


6 34 


TOAE 


DC 


XL2 '0000' 


1 3 EC 


oooo 


1 3ED 


635 


RTNAB 


DC 


XL2'00OO' 


13EE 


coco 


13EF 


636 


ALTAR 


DC 


VT _'00OO' 


13F0 


00 


13F0 


637 


ANNA 


DC 


i- 00' 


13F1 


CO 


13F1 


638 


ANO 


DC 


«„1 '00* 


1 3F2 


CO 


13F2 


639 


POND 


DC 


XL1 '00' 


13F3 


6C00 


1 3F4 


640 


CLK 1 


DC 


XL2'6000' 


1 3F5 


4OC0 


13F6 


641 


FETE 


DC 


XL2'4000' 


13F7 


COCOOOOOOO 


1 3FB 


642 


ALM5 


DC 


XL5 '0000000000 








643 


******* PROBE 


PLACEMENT FO? 






020A 


644 


SBYTE2 


EQU 


X'20A' 


1 3 PC 


02 


13FC 


645 


RTN2 


DC 


XL1 '02' 


1 3FD 


PO 


1 3FD 


646 




DC 


XL1 '80* 


1 3FE 


f-FFF 


i 3p r 


647 




DC 


XL2* FFFF* 


1 40 C 


CO 87 C2 1A 




648 




P 


PRINT 


140" 


41 


1404 


649 




DC 


XL1 • 41' 


1405 


01 


1 405 


650 




DC 


XL1 '01 ' 


1406 


1U44 


1407 


651 




DC 


AL2 (GULP) 


1408 


AOFC 


1409 


652 




DC 


XL2' AOFC* 


140A 


CO 87 02 1 A 




653 


GAMMA 


B 


PRINT 


140E 


01 


140E 


654 




DC- 


XL1 '01' 


1U0F 


IB 


140F 


655 




DC 


XL1 • IB* 


1410 


148F 


1411 


656 




DC 


AL2 (MSGOUT) 


DATE 


02BAR7C 


01APR7C 


06MAY70 


01JUL70 


EC NO. 


571512 


571516 


571513 


571524 





READ DATA 2 CTL FLD 
RECAL CTRL TLD 
ADDRESS OF RECAL CT5I 
SEEK CTRL FLD 
ADDR OF SEEK CTL FLD 



FLD 



CTL 

CTL 



FLD 
FLD 



WR 
W F 



ID SO 
DATA 



II 

PD 



EIAC 



DFCR 
DFDR 
PARA 



PAPA 

PARA 

HKG AREA 



PARA POINTER 



' J N S A F 5 ROUTINE***************** 



PROG ID 
PAGE 



OR01-3 
5 A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 



PART NO. 
PAGE 



5129613 
6 



B013 



FILE CONTROL UNIT FLT SECTION 2 



ERR LCC CB.1F.CT CODE 



ADDR STMT SOURCE STATEMENT 



1412 
1U16 
It 13 
1U1A 

mil 

1420 
1U22 
1426 
1429 
142A 
142F 
14 30 
1432 
1436 
14 3P 

14 3A 
143E 
144C 
1444 

1445 
1449 
144D 
144F 
1451 
1453 
1457 
1459 
145B 
1455 
1461 
1463 
1467 
1469 
1463 
146F 
1471 
1475 
147C 
148 5 
1481 
1 490 
1498 
149F 
14A7 
14AE 
1436 
1431 
14C6 
1 4CA 
1 4D2 
1 4D9 
14E1 
14E8 
1 4 F 

14F7 
1 4FB 
14? F 
1503 
150K 
1505 
15C7 
1509 
150C 

15 15 
151D 
1525 



CO f7 

C10F 1417 

14D8 1419 

CO 87 021A 

010F 141F 

14E7 1421 

CO 87 021A 

C10F 1427 

14F6 1U29 

CO 87 02 1A 

011C 142F 

14C9 1431 

CO 87 021A 

C5CB 1437 

1022 1439 

CO 87 0222 

AOFC 143F 

CO 87 0AD8 

40 1444 

3C 07 

CO 87 

411B 144E 

143F 1450 

AOFC 1452 

CO 87 021 A 

C10F 1458 

'U9S 14 5A 

CO 87 021A 

010V 1460 

14AD 1462 

CO 87 021 A 

C5CB 1468 

1022 146A 

CO 87 0222 

AOFC 1470 

CO 87 0A46 

40D7D3C1C3C540D i 148F 

F4D4D7C5r)9E24CD6 

E54GC6C3S440C2D6 

C1D9C4 

40D9F2D4FOF340E3 149E 

D640D2F2C7F0F2 

40D9F2D4FOF440E3 14AD 

D640D2F2E4F1F0 

40D7D3C1C3C540C3 1 4C9 

C540D4E2E340D7D9 

E6C2C540D6D540D1 

F2D4F0F3 

40B9F2D4FOF340E3 '4D8 

E640D1F2D4F0F5 

40D9F2D4F0F440E3 14E7 

E6UOD1F2D1F1F2 

40D9F2D7F1F040E3 14F6 

D640D1F2C7F1F1 

34 08 150C 

3C 07 118F 

CO 87 021 A 

CI 1503 

30 1504 

153D 1506 

A001 1508 

CO 87 1S09 

4CD4E2C740D5J64B 153D 

4CC240C5404040E2 

F3C1E3E4E2404040 

C3E3D9D340C6D3C4 



021A 



0A43 
021A 



657 
658 
659 
660 
661 
6 62 
663 
664 
565 
666 
667 
663 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
630 
681 
682 
633 
6P4 
685 
636 
687 
688 
689 
690 
691 
692 
693 
694 
694 
694 
694 
695 
695 
696 
696 
697 
6 97 
697 
697 
698 
699 
699 
699 
700 
700 
70 i 
702 
703 
704 
705 
706 
707 
708 
709 
710 
710 
710 
710 



;ulp 



PRINT 

XL2'010F' 

AL2 (C0UT1) 

PRINT 

XL2'010F» 

AL2(COUT2) 

PRINT 

XL2'010F' 

AL2(COUT3) 

PRINT 

XL2'011C 

AL2 (C0UT4) 

PRINT 

XL2'050B' 

AL2 (PANT) 

HALT 

XL2'A0FC 

ORE 

CLT ' 

********PPOBE PLACEMENT MESSAGE ONCE PEP LOAD********** 
'.CT1 MVI ALOE+1,X«07« SHUT OFF ONE TIME SWITCH 

PRINT 

XL2'41 IB' 

AL2 (MSGOOT) 

XL2' AOFC* 

PRINT 

XL2 , 010*« 

AL2(30UT1) 

PRINT 

XL2'010F' 

AL2 (BO0T2) 

PRINT 

XL2'050B' 

AL2 (PANT) 

HALT 

XL2'A0I'C ' 

ALOFT 

CL27" PLACE JUMPERS ON FCU BOARD' 



DC 

DC 

B 

DC 

DC 

B 

DC 

DC 

B 

DC 

DC 

g 

DC 

DC 

B 

DC 

B 

DC 



B 
DC 

DC 
DC 

3 

DC 

DC 

B 

DC 

DC 

g 

DC 
DC 

R 

DC 



MSGOUT DC 

B0UT1 DC CL15' R2M03 TO K2G02' AM TIMS 

B0UT2 DC CL15' R2M04 TO K2U10' CT? DECODE 1 

CO0T4 DC CL23' PLACE CE MST PROBE ON J2M03' 

C0DT1 DC CL15« R2MC3 TO J2M05' READ GATE 

C0UT2 DC CL15' R2M04 TO J2J12" WRITE GATE 

CO0T3 DC CL15' R2P10 TO J2G11' ERASE G AT E 

*********PRINT HEADING ROUTINE ONLY ONCE PEF LOAD********** 

ONCE ST HEPE+3,X'03< 

MVI ONLY+1,X'07' 

B PRINT 

DC XLVCV 

DC XLI'30' 

DC AL2(OP0S) 

DC XL2'A001« 

HERE B HERE 

OPUS DC CL49' MSG NO. 3 3 STATUS CTRL FLD DFCR DtDR DATA' 



DATE 
EC NO. 



02MAP70 
571512 



01 AP37G 
571516 



06MAY70 
571513 



01JI1I.7 
571524 



PBGC ID 
PAGE 



0B01-3 
6 



IBM KAINTENANCE DIAGNOSTIC PROGRAH 



PART NO. 
PAGE 



5129613 
6A 



B013 



FILE CONTROL UNIT FLT SECTION 2 



ERR LCC OBJECT CODE 

152C 4040C4C6C3D94040 

1535 C4C6C4E940C4C1E3 
153E C1 

153E 154C 

1540 40 

1541 02 

1542 525E66 
1545 2A10 
1547 22 

1543 1A00OP 
15UE 3AC218 
154E 1A0EO1 
1551 1AC0O3 
1554 1AFF03 
1557 1A00O5 
155A 5A 

155E 6AC0O1013 3313 131 

1563 313131 

1566 1A0OOO 

1569 1A00OC 

156C 6AC0013133111 111 

157 4 111111 

1577 5E 

1578 1AO0OD 
157B 2AC0 
157D 1A0001 
■•580 4A 
1581 OBOE 
1583 1565 
1585 BO 

1536 01 
1587 525E66 
153A 2A10 
158C CO06 
153E 1E 
158F 5A 

159C 6A00O 101313131 31 

1598 313133 

159E 4O04 

159D 1A0026 

15A0 4O06 

15A2 32 

15A3 4O0E 

15A5 36 

15A6 1A00O6 

15A9 40CC 

15AB 3 2 

15AC 4O0E 

15AE 32 

15AF 44 10 

15B1 32 

15B2 4O0E 

1534 36 

15B5 4058 

15B7 32 

1538 40CB 

153A 36 

15FB 4 4 OF 

153D 4O02 

15BF C210100016 

15C4 3E 

15C5 1A00OC 

15C8 4 0CC 

15CA 3 2 

15CB UOOE 

15CD "!6 

15CE 1A0CFn 



SAT 

SCT 



AI2 ( 
XL1 • 
VII « 
XL3' 
XL2' 
XL" • 
X J' 
XL3' 
XL3' 
XL3« 
XL3' 
XL3' 
XLT 



ADDR STMT SOURCE STATEMENT 



710 

710 

710 

711 

712 

713 

714 

715 

716 

717 

713 

719 

720 

721 

722 

723 

724 

725 

725 

726 

727 

728 

728 

729 

730 

731 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

743 

74 3 

744 

745 

746 

747 

743 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

76 3 

764 

765 

766 

767 

768 

769 

770 

771 

772 



153F 
1540 
1 C 41 
1544 
1546 
1547 
154A 
154D 
1550 
1553 
1556 
1559 
155A 
1565 

1568 
156B 
1576 

1577 
137A 
157C 
157F 
1580 
1582 
1584 
1585 
1586 
1539 
158B 
1583 
15PE 
153? 
1 59A 

159C 
159F 
15A1 
1^A2 
15A4 
15A5 
15A8 
15AA 
15AB 
15AP 
15AE 
15B0 
15B1 
15B3 
15B4 
15B6 
15B7 
15B9 
15BA 
15BC 
15BE 
15C3 
15C4 
15C7 
15C9 
15CA 
15CC 
15CD 
15D0 



******* ppiM 
DOE DC 

RENT DC 



DC 
DC 
DC 
DC 
DC- 
DC 
DC 
DC 
DC 

DC 
DC 
DC 

DC 
DC 
DC 
DC 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
bC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



END*********************** 



RENT) 

40 * 

02 ' 

52 5E66' 

2A10» 

22« 

1AO00B' 

3AC218' 

1A0E01 ' 

1A0003' 

1AFF03' 

1A0005' 

5A« 



WRITE DATA UNSAFE ROUTINE 

2 OSC 
RESET 

SET BUSY NO ERROR 
INITIALIZE SET TO 3 
1 1 BYTES 
GOOD AH 
SYNC CHAR 

3 BYTES ID 

3 BYTES FF IDCC 

5 JYTES TO PREDATA 
SET SENSE BY BIT 



XL1 1 '6A00O10133313 131 313131' 1 BYTE 



XL3MAO00O' 256 BYTES 

XL3MAO00C 12 EYTES 

XL 11 '6A00013 13 3i11 11 111111 1" 1 



3YTE 



XL1 ' 5E' 

XL3' 1A000D" 

XL2'2AO0' 

XL3MA0001 ' 

XL1 '4A' 

AL2 (RASH) 

AI2 (SOT) 

XL1 • 80' 

XL1 '01 • 

XL3«52 5E66' 

XL2'2A10' 

XL2'C00f>' 

XL1 « IE • 

XL1«5A' .,_ 

XL1T6A0001013131 3 131313133' 



SET SENSE BY BYTE 

14 EYTES 

SET INDICATOR NOT 

1 BYTE 
■50 TO NEXT ROUTINE 



3USY NO ERROR 



WRITE ID CNSAFE ROUTINE 

1 INDEX 

RESET 

SET BUSY, NO ERROR 

6 INDEX AND OSC 

IND INITIALIZE TO SRO DEC 
SET SEN?" BY BI T 

BYTE SENSE BY BIT 



XL2 
XL 3 
XL2 
XL1 
XL2 
XL1 
XL3 
XL2 
XL1 
XL2 
XL1 
XL2 
XL1 
XL2 
XL1 
XL2 
XL1 
XL2 
XL1 
XL 2 
XL2 
XL5 
XL1 
XL 3 
XL2 
XL1 
XL2 
XI. 1 
XL3 



•4004' 
• 1A0026' 

• 4006' 
'32 • 
•400E' 

• 36' 
•1A0006' 

■ 400C 
•32 ■ 
•400E' 
•32' 
•4410" 
i 32 ' 
'400E* 

• 36' 
•4053' 

■ 32 i 

'4003' 

'36' 

•440F' 

'4002' 

•0210100016' 

«3E' 

' 1A00OC 

'400C 

•32' 

•400E' 

•36« 

•1AO0FD' 



4 rise 

38 BYTES TO 3R 2 DEC 9 AH 

5 OSC TO BR5 DEC 9 A* 

TEST HALT WITH DELAY TFST FF OF? 
14 OSC TO BP4 DEC 8 A" 
TEST HALT 

6 BYTES CSC 

12 OSC TO BR2 DEC 1 A" 

TLST HALT WITH DELAY TEST 1 AM 

14 OSC TO BR1 DEC AC 

T EST HALT WITH DELAY TEST 2 AM 

16 OSC AND IDC TO 3R1 DEC PRE ID 

TEST HALT WITH DEALY TF.ST SNC CHAR 

14 OSC TO BPO DEC 2 IC 
TEST HALT 

33 OSC TO BP4 DEC IDCC 
TEST HALT WITH wELAY 

11 OSC TO BR1 DT DEC 4 POST ID 
TEST HALT 

15 0SC AN! IDC TO BR 1 DEC 3 POST ID 
2 OSC TO 3R2 DEC 3 POST ID 

CO*!P CTL FLD 
SET N TO 

12 BYTES TO BF.2 DEC 1 PREDATA 
12 OSC TO 3R DEC PRE DATA 

TEST HALT W DELAY CHK S CHAR ANlj FF 
14 OSC TO BP 7 DEC PRF DATA 
TEST HALT 
.'5' BYTES DATA TO BR7 DFC3 !!AlA 



DATE 
EC NO. 



C2HAR70 
57 1512 



01 APR7C 
57 1516 



06KAY70 
57151 3 



01JUL7 
571524 



PROG ID 
PAGE 



0B01- \ 
6A 



IBH MAINTENANCE DIAGNOSTIC PROGRAM 



PART HO. 
PAGE 



5129613 

7 



B013 



FILE CONTROL UNIT ?LT SECTION 2 



ERR LCC OBJECT CODE 



ADDR STMT SOURCE STATEMENT 



15D1 26 

15B2 1AC005 

15D5 40CA 

1507 32 

15D8 400A 

15DA 36 

15DB 400A 

15DD 1A0039 

15EC 1AC000 

15E3 1A001E 

15E6 8001 

15E8 C0C4 

15EA 5A 

15EB 6AC0013311 111111 

15F3 111111 

15F6 5E 

15F7 1A0003 

15FA 2A00 

15FC 1A0001 

15FF 4 A 

1600 0B26 

1602 1604 

1604 40 

1605 03 
16C6 525E66 
1609 2A10 
160B 2E01 
160D 8001 
160F C0C5 

1611 1E 

1612 COOD 

1614 6A000A 1111111111 

161C 1111111111 

1621 6AC0301111111111 

1629 1111111111111111 

1631 11311151 

1635 5151515151515151 

163D 5151515151515151 

1645 51515179 

1649 5915153511113111 

1651 111511 

1654 5A 

1655 6A00021133313131 
165D 3131303113111110 
1665 111111 

1668 5E 

1669 6A0006 1111111111 
1671 11 

167 2 OA 

1673 1F01 

1675 0210100016 

167A 3E 

167B 6A000411113 i15 

1682 7200FE1b 

1686 06 

1687 1200 

1680 6A00143511193911 
1691 1111111111111111 
1699 111111 11 IIjII 1 
16A0 6A00195151515151 
16A8 £151515151515151 
16 BO 51515151 
16B4 51515.7959151535 
163C 6A00131 1 1131 1 111 
16CU 1511311111111111 
16CC 111111113115 
16D2 06 



15D1 
15D4 
15D6 
15D7 
1 5D9 
15rA 
15 DC 
15DF 
15E2 
15E5 
15E7 
15E9 
15EA 
15F5 

15F6 
15F9 
15F3 
1 C FE 
15FF 
1601 

1603 
1604 
160 5 
1608 
16CA 
160C 
160E 
1610 
1611 
1613 
1620 

1 634 



1648 



16 >3 

1654 
1667 



1668 
1671 

1672 
1674 
1679 
167A 
1681 
1C-85 
16*6 
1688 
169F 



16B3 



16BB 
16D1 



15D2 



773 

774 
775 
776 
777 
778 
779 
780 
781 
782 
783 
784 
785 
786 
786 
7 87 
783 
789 
790 
791 
792 
793 
794 
795 
796 
797 
793 
799 
300 
301 
802 
303 
804 
304 
805 
805 
805 
806 
806 
806 
807 
807 
808 
809 
b09 
809 
810 
811 
811 
812 
813 
814 
315 
316 
817 
818 
819 
820 
820 
820 
821 
821 
821 
822 
823 
823 
823 
824 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

DC 
DC 
DC 
DC 
DC 
DC 
HRITE 



ID 



ERAD 
CRAG 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



DC 



DC 



DC 
DC 



DC 
DC 

DC 
DC 
DC 
DC 
DC 
PC 
DC 
DC 
DC 



DC 



DC 
DC 



::t.i'26' 

XL3'1 A0005' 
XL2'400A» 
XLV32' 
XL2'400A' 
XLI'36' 
XL2'4O0A' 
XL3' 1A0039' 
XL3' 1 AOOOO' 
XL3' 1A001E' 
XL2'8001 • 
XL2'CO04' 
XL1 ' 5A« 



CC 



RESET DFDR 

5 BYTES TO BR7 DEC1 DATA 
10 OSC T/ BFU DECO DATA CC 
TEST HALT H DEL CHK DATA CC AND 
10 OSC TO BR DEC 14 POST '/ATA 
TEST HALT 
10 OSC TO BR b DEC 14 POST DATA 
57 BYTES TO BR 6 DEC 1 PREDATA 
256 BYTES TO BR 6 DEC 1 DATA 
CHK N CARRY 



FF 



30 BYTES 
INDEX 

4 OSC AND 
SET SENSE 



XL 11 « 6A0 001 3 31 1111 111111111* 



INDEX 
BY BIT 

1 BYTE 



XLV5E" 
XL3' 1A0003- 
XL2'2A00' 
XL3' 1A0001 ' 
XLV 4A' 
AL2 (VIRG) 
CLOCK STEP FUNCTION 
AL2 (CRAG) 
XLV40' 
XL TO 3' 
XL3'525E66' 
XL2'2A10» 
XL2-2E01 « 
XL2'8001 ■ 
XL2'C005' 
XLV IE' 
XL2'C00D' 
XL13'6A0O0A 11111 



SET SENSE BY BYTE 

3 BYTES TO BR 7 DEC 

SET BUSY ERR PARA 
1 BYTE 
GO TO NEXT ROUTINE 

TEST HITH PROBES PARA 



23 



TESTS 
P"SET 
SET bu: 



ABSENCE OF SET TO 8 



Y CN ERROP OFF 



1 INDEX 

5 INDEX A!<D OSC 

TND INITIALIZE 



TO 3R0 DEC 1 



1 111 111 111111 T 



XL 20' 6A00301 11 1111 111111 1 ,1111111111111311151' 



XL20' 515151515"5''5151515151515151515151515179* 



XL11' 59 1515351 -, 11311111151V 



XL1 ' 5A' 



SET SENSE BY BIT 



XL19'6A00021imi313131313 03113111110 1' , 1111' 



XL1 ' 
XL9 ! 



52' SSI 

^»C00611111111 1111' 



SENSE BY BYTE 



XL 1 'OA' 

AL2(ARNE) 

XL5'0210100016' 

XL1'3E' 

XL7«6A00041 1113115' 

XL4'7200FE15' 

XLI'06' 

AL2(BAPN) 



COMP DFCR 

CCMP CTL 
SET N TO 



FLD 




COMP 



COME 
DFDR 



DFDR 



XL23 , 6A0 0143511193911111111111111111111111111113111« 



XL20' 6A001951 5 1515151515 151515151515151^1' 151 • 



XL8'5151517959151 t: 35« 
XL22'6A0O131imi111115113111111111111inmi3115' 



DC 



XLI'06' 



COMP DFDR 



DATE 
EC NO. 



02MAR70 
57 1 r > 12 



01 APR70 
571516 



06MAY70 
571513 



01J U L70 
57152" 



PROG ID 
PAGE 



0fl01-3 

7 



IBH HAINTENANCE DIAGNOSTIC PROGRAM 



B013 



FILE CONTROL DNIT FLT SECTION 2 



PART NO. 
PAGE 



5129613 
7A 



ERR LOC OBJECT CODS 



ADDR STMT SOURCE STATEMENT 



16D3 1EO0 

16D5 7200FE15 

16D9 6AC019351 1193911 

16E1 1111111111111111 

16E9 11111111 

16ED 1131111111111111 

16F5 80C1 

K-P7 4E00000800 

16FC E010 

16FE 6A0004 131 31313 

1705 4EC0C0CO00 

170A 2A00 

170C 6A000101 

171 4A 

1711 0326 
1713 1715 
17 15 OE 
1716 19C9 

1719 S25E66 
171B 6A000141 
171F OE 

1720 19EC 

1722 5A 

1723 6A0E01C101010101 
172B C10101 

172E 6AFF01 1113111 111 

1736 111111 

1739 5S 

173A 24C2 

173C 76 

173D 2EC7 

173F 2006 

1741 6A000114 

1745 5A 

17U6 6AFF01 1417151111 

174F 111111 

1751 5E 

1752 6A000130 
1756 6AF70111 
175A 5A 

175B 6AFF01 1112101010 

1763 101010 

176 6 OA 

1767 1F01 

1769 C2FF000000 

176E 5E 

176F 6AFF0A 1011 111010 

1777 1111103011 

177C 2A00 

177E 6AFF01C1 

1782 4A 

1783 0A7C 
1705 1787 
1787 76 
178 8 40 01 
178A E25E66 
1780 2E01 
178F 4001 

1791 22 

1792 ?A10 

1794 52 

1795 5A 

1796 66 

1797 6AFF01 1111111 1 H 
179F 111113 

17A2 62 

17A3 6AFF01 ■ 1 11 1 1 1 1 ■> 1 

17AE 111113 



16D4 
16D8 
16EC 



16F4 
16F6 
16FB 
16FD 
1704 
1709 
170B 
170F 
1710 
1712 
1714 
1715 
1717 
171A 
171E 
171F 
1721 
1722 
1721 

1738 

17 39 
173B 
173C 
173E 
1740 
1744 
1745 
■»750 

1751 
1755 
1759 
1 75A 
1765 

176 6 
1768 
176D 
176E 
1773 

177D 
1781 
1782 
T?84 
1786 
1787 
1789 

178 : 
178'. 
179C 

179 1 
1793 
1794 
1795 
1796 
17A1 

17A2 
17AD 



825 
826 

827 
827 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
341 
842 
843 
844 
845 

pv c 

846 
847 
347 
84 8 
84 9 
850 
851 
852 
853 
354 
855 
855 
856 
857 
858 
859 
86 
860 
861 
862 
863 
864 
865 
865 
866 
B67 
963 
869 
870 
871 
872 
873 
974 
375 
876 
377 
878 
879 
390 
381 
881 
882 
88? 
8b) 



? ARK 



TAX 
TAXES 



DC 
DC 
DC 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

**>,^ 

DC 
DC 
DC 
DC 
DC 

DC 

DC 
DC 
DC 
DC 

DC 
DC 
DC 
DC 



DC 

DC 
DC 
DC 

DC 
DC 
EC 
DC 
DC 

DC 
DC 
DC 
DC 
DC 
DC 

d: 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

DC 
DC 



DFDR LOCATION 



AL2 (BARN) 

XL4'7200FE15' 

XL20'6A0019 351 119391111111111111111111111111V 



XL8« 11311111111111 11 

XL2'800V 

XL5'4E00GO0800' 

XL2'E010' 

V L7«6A 000413131313 ■ 

XL5'4E0O0OO0OO« 

XL2'2A00> 

XL4'6A00010V 

XLT4A' 

AL2 (VIRG) 

AL2 (FARR) 

XL1 'OE* 

AL2 (IDLE) 

XL3'525E66' 

XL4'6A00014V 

XLTOE' 

AL2 (AFT) 

XL1 '5A' 



1 INDEX 



SET BUSY CFF EPFCP OFF 



GO TO ALT PAHA FOF IN IT SET TO 3 



RESET 



33ANCH TO ALT POUT IKE 
ADDR OF AH PARA 
SET SENSE BY SIT 



FOR AM 



XL 1T6A0E0 10101 C1010 101 01OT 



XL IT 6AFF0 11113111111111111' 



SET SENSE 3Y 3YTE 

2 SEP CLK WITH IDC 
CE LIO FF 00 AND FF 

6 SEP CLK 



XLT5E' 

XL2'2402' 

XL1 '76' 

XL2'2E07' 

XL2'2006' 

XL4'6A000114' 

XL1'5A" SET SENSE BY BIT 

XL1T6AFF011417151111111111' 

XLT5E' SET SENSE BY BYTE 

XL4'6A000130' 

X T _'4 ' 6AF7011 1 * 

XLT5A' SET SFNSE BY BIT 

XL1T6AFF011 11210 10101 C1010' 

XL' 'OA' 

AL1 (ARNE) 

XL5'02FFOOO0O0' CDRP S CTL FLD 

XL1'5E' SET SENSE BY B/TE 

XL 13" 6 AFP0A1011 1110101 111 10301 1- 



XL2'2AO0 ' 

XL4«6AFF010T 

XL1 '4A' 

AL2 (STAGE) 

AL2 (TAXES) 

XLT76« 

XL2'400T 

XL3'525E66' 

XL2'2E0T 

XL2'4001 ' 

XL1 '22' 

XL2'2A10> 

XLT52' 

XL1 '5A' 

XL1 '66« 



SET NOT BUSY NO ERROR 



BRANCH TO NEW ROUTINE 



CE LIO FF 00 AND FF 

1 osc 

RESET 

TEST SENSE PROBES 

1 OSC 

I NIT SET TO 8 

SET BUSY CN ERR CFF 

SET WFT OSC BIT ON 

SET SENSE BY BIT 

SET SEP CLK ON 



XL1 V6AFF0 11 111111 111111113' 

XL1'62' SET SEP CLK OFF 

XL1 V6AFF011111 111111111113' 



DATE 
EC NO. 



02HAR70 
571512 



01 APR70 
571516 



06HAY70 
5 71513 



01.1UL70 
571524 



PROG 
PAGE 



ID 



0B0 1-3 
7 A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 



PART NO. 
PAGE 



5129613 
8 



B013 



file: control unit flt section 2 



ERR LOC OBJECT COLE 



AHDF STMT SOURCE STATEMENT 



17AE 
17 AF 
17B7 
17RF 
17C2 
17C3 
17C4 
17C5 
17CC 
17CC 
17CE 
17D6 
17D9 
17CA 
17DB 
17E0 
17E1 
17E9 
I^BC 
17E3 
17EE 
17F6 
17FS 
17FB 
17FD 
17FF 
1801 
1806 
1807 
180B 
180C 
180D 
180F 

181 1 
1812 
1813 
1816 
1817 
1819 
181F 
181F 

182 1 
1822 
1824 
1825 
1827 
1828 
182A 
182F 
1837 
183F 
1842 
18*43 
13M5 
18UA 
1BUB 
1853 
185B 
185F 
185F 
1863 
1808 
186C 
1870 
1874 
1878 
1879 
187E 



66 

6A0002 

111113 

101012 

56 

52 

5E 

6A0004 

7C 

5A 

6AOF01 

U 14141 

56 

5E 

6A0OO2 

5A 

6A0001 

Oimm 

52 

62 

6A0001 

414141 

8001 

0001 

8001 

2S01 

4E2400 

5E 

6AC001 

66 

«A 

OA68 

1811 

2A 

10 

525E66 

OE 

19C9 

6A0002 

OE 

19EC 

OE 

1A02 

OE 

1A10 

OA 

1F04 

UECOOO 

6A0010 

101014 

tti«im 

OA 
1F01 

6AC002 

5A 

6E0OOO 

515151 

515151 

5E 

6A0E01 

6A0002 

6A5801 

6AFF01 

6AA701 

6AFC01 

OE 

1A27 

6AC0C2 



1111111111 
1111 101010 



11103110 
4041414 141 

4141 

uommmui 

H141 HI !»1I»1 



0000 

01 



4141 



0000 

1010101010 

1030104141 



aui 

4151535151 
5151535151 



05 

1535 

19 

11 

30 

11 



O101 



17AE 
1 7C1 



17C2 
17C3 

wcu 

17CB 
17CC 
17CD 
17D8 

17D9 
17DA 
17DF 
17E0 

1 7SB 

1 7EC 
17ED 
17FR 

17FA 
17FC 
17FE 
1800 
1905 
1806 
180A 
180B 
180C 
180t 
1310 
1811 
1812 
1815 
1816 
1818 
181D 
I81E 
1820 
1821 
1823 
1824 
1826 
1827 
1829 
182E 
184 1 



1842 
1844 
1849 
184A 
185D 



195E 
1862 
1867 
1 86B 
186F 
1873 
1877 
1878 
187A 
187F 



884 
885 
885 
885 
886 
887 
888 
889 
890 
391 
892 
892 
893 
894 
895 
896 
897 
897 
898 
899 
900 
900 
90' 
-102 
903 
904 
905 
906 
907 
908 
9C9 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
927 
927 
928 
929 
930 
931 
932 
932 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 



STYLE 
STATE 



DC 
DC 



DC 
DC 
DC 
DC 
DC 
DC 
DC 

DC 
DC 
DC 
DC 
DC- 
DC 
DC 
DC 

DC 
DC 
DC 

T>r 

DC- 
DC 

it '^ 

DC 
DC 
DC- 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
EC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



DC 
DC 
DC 

DC 
DC 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



XL1 ' 66' SET SFP CLK ON 

XL19'6A 0002 111 1111 111111113111 110101010101?* 



XL1 
XL1 
XL1 
XL7 
XL1 
XL1 
XL1 

XL1 
XL1 
XL5 
XL1 
XL1 

XL1 
XL1 
XL1 

XL2 
XL2 
XL2 
XL2 
XL5 
XL1 

XL1 
XL1 
AL2 
AL2 
XL1 
XL1 
XL3 
XL1 
AL2 
XLS 
XL1 
AL2 
XL1 
AL2 
XL1 
AL2 
XL1 
AL2 
XL5 
XL1 



56' 
52' 

5E* 

6A000411103110' 

76" 

5A' 



SET WRT OSC BIT OFF 
SET WPT OSC BIT ON 
SET SENSE BY BYTE 



CE LIO FP 00 AND 
SET SENSE BY BIT 



FF 



'6A0FO 14041414 14 1414141' 



WRT OSC BIT OFF 
SENSE BY BYTE 



56' SET 

5E' SET 

6A00024141 • 

5A' SET SENSE BY BIT 

•6A00014C'*14 14 141 41414 1* 



52' SET HRT OSC BIT 

62" SET SEP CLK OFF 

'6A000141414 14 14141414 1* 



ON 



8001' 

0001 • 

8001 * 

2A01 • 

4E24000000' 

5E* 

6A000101* 

66' 

4A' 
(GAB) 
(STATE) 

2A' 

10' 

525E66' 

OE" 
(IDLE) 

6A00024141 ' 

OE' 
(AFT) 

OE' 
(SUMP) 

OE' 
(STARE) 

OA' 
(ARNE+3) 

4E00OO0000' 
9-6A00101010101 01 



INDEX 

NO INDEX 

1 INDEX 

SET NOT BDSY f-.H^ I 

TEST STATfS 

SET SE*-'-:'- BY BYTE 



inu8 



SEP SEP CLK ON 
BRANCH TO NEW ROUTINE 

ADDR OF SIAD F DATA PARA 

SKT BUSY ON ERR OFF 

B'JSY NO ERROR 

RESET 

30 TO ALT PARA FOR INIT SET TO 3 



30 TO ALT FO AM 

GO TO ALT FOR SYNC CHAP 

GO TO ALT PARA 
FOR ID 
COMP DFCP 
DFCB LOCATION 
TEST STATUS 
010 101410301 04 141414 -.41' 

COMP DFCR 



XL1*0A' 

AL2(ARNE) 

XL5*6A0002414V 

XLV5A' SENSE BY EI" 

XL1 9' 6 E0000415 15 35 1515151515151535151515151* 



XLV5E' 

XL4'6AOE0105' 

XL5'6A00021535* 

XL4'6A580119* 

XL4'6AFF0111' 

XL4«6AA70130' 

XL4'6AFC011V 

XL1 'OE* 

AL2(PORT) 

XL5'6A00020101 ' 



SSNSE BY EYTE 



GO TO ALT PARA FOR POST ID 



DATE 
EC NO. 



02BAR70 
5715 12 



01APR70 
571515 



06MAY70 
571513 



1J0L70 
57152U 



PROG 
PAGE 



ID 



0B01-3 
3 



IBH MAINTENANCE DIAGNOSTIC PROGRAM 



PART 

PAGF 



NO. 



512961 3 

8A 



B011 



FILE CCNTFIL UNIT FLT SECTION 2 



ERR LOC OBJECT CODE 

1R9C 6A0EO101 

1884 6A00O111 

1388 7200C015 

1PRC 16C0 

18RF 06 

18SF 1E01 

1391 6A0EO115 

1895 720F3C15 

1399 6AOF0135 

189D 6AFF011S 

13A1 6AF00115 

13A5 6ACEO130 

1BA9 6A000110 

18AD 6AOOOF1010101010 

1835 10 10101010101010 

18^D 3010 

18BF 6A00024040 

18C« 5A 

18C5 6EC0004050525151 

1RCD 515151M51535151 

18D5 M5151 

18De 5E 

18D9 OE 

18DA U02 

18DC 6A0CO21535 

18E1 6A5C0119 

13E5 6».FF0111 

i:E9 6AA3O130 

18ED 6AFB0111 

18F1 6A00101010101010 

18F9 1010141030100101 

1901 010101 

1904 OE 

1905 1A42 

1907 OE 

1908 1A60 

190A 6AF0021141 

190F 8001 

1911 E008 

1913 bAC01431 11)11111 

191B 1111 1 1 1111111111 

1923 11111131114141 

192 A 05 

192E 19EC 

I92D OE 

192E 1A02 

1930 6A00021535 

1935 6A800111 

1939 6AFF0111 

193D 6A7F0131 

1941 6AFE0111 

1945 OE 

1946 U27 

1948 OE 

1949 1A42 
194B OE 
194C 1A60 
194E 2A00 

1950 6A000101 
1954 4A 

195 5 0A9A 

1957 1959 

1959 Oe 

195A 19C9 

195C 525E66 

195F 6A00024141 

1964 OE 

1965 19EC 



ADDR STMT SOURCE STATEMENT 



1 RR3 
1887 
1889 
18RD 
1 SHE 
1 890 
1994 
1898 
189C 
18A0 
13A4 
1«A8 
1RAC 
1 R&E 



18C3 
1 3C 4 

1 8D7 



13D3 
1«D9 
18DB 
18E0 
18E4 
1 8E8 
18EC 
18F0 
190 3 



1 J04 
i906 
1907 
1909 
190F 
1910 
1912 
1929 



192A 
192C 
192D 
192F 
1934 
193 8 
193C 
1940 
1944 
1945 
1947 
1948 
194A 
194B 
194D 
194F 
1953 
1954 
1956 
1958 
1959 
195B 
195E 
196 3 
196 ; 
1966 



943 
144 

946 
947 

94 8 
949 
95!) 
951 
952 

95 1 
954 
955 
35b 
956 
956 
957 
9SP 
959 
959 
959 
960 
961 
962 
963 
964 
965 
966 
967 
963 
963 
963 
969 
970 
971 
972 
973 
974 
975 
976 
976 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
9 94 
995 
996 
997 
998 
999 

1000 
1001 
1002 



LOG 
LOG 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



DC 
DC 
DC 



DC 
DC 
DC 
DC 
DC 
DC 
^C 
DC 
DC 



DC- 
DC 

DC 
DC- 
DC 
DC 
DC 
DC 



DC 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC- 
EC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

nc 

DC 
DC 
DC 
DC 
DC 
DC 



COMF DATA 



XI. 4' 6AOE0 101 • 

XL4'6A0001 11 • 

XL4'7200C015' 

XL2' 1600' 

XL1 '06' 

AL2 (BARN+1) 

XL4'SA0E01 15' 

XL4'720F 3C15» 

XL4'6A0F0135" 

XL4'6AFF0 1 15' 

XL4'6AF001 15' 

XL4'6A0E01 30' 

XL4'6A000110' 

XL13'6A 00F10 101010101 ;1101C1C1C1C1 010 3 010' 



XL5'fiA00024040' 

XL1 ' 5A' 

XL19'6 EOOOO 405 15 25 1515151515:5153515151515V 



TO AL FOR SYNC 



:ha? 



XL1 • 5E' 

XL1 'OF' 

AL2 (SUMP) 

XL5'6A00021535' 

XL4« 6A5C01 19* 

XL4'6AFP01 11' 

XL4'6AA30130' 

XL4'6AFB0111' 

XL19'6A00101 Oil 1010101010141 030100 10101010 1' 



XLTOE' 

AL2 (DORY) 

XL1 'OE' 

AL2 (PLUM) 

XL5'6AE0021141 ' 

XL2' 8001 ' 

XI.2' EOOR' 

XL23'6A00143111111111111111111111111|11->11131114141' 



GO TO AL: PARA 2-00 OE DATA AND CC 
•0 TO ALT FOR POST DATA 

1 INDEX 



XLI'OE' 

AL2 (AFT) 

Xt-1 'OE' 

AL2 (SUS?) 

XL5'6A00021535' 

XL4'6A800111 ' 

XL4'6AFF01 11' 

XL4»6A7F0131 • 

XL4«6AFE0111 • 

XL1 'OE' 

AL2 (PORT) 

XLI'OE' 

AL2(D0RY) 

XL1 'OE' 

AL? (PlCB) 

XL2'2*00' 

XL4'v. .000101' 

X L 1 • 4 A ' 

ni-? ;:.! ORM) 

AL2 (l.tIG) 

XL* 'OE' 

AL2(IDLE) 

XL3'525E66' 

XL5'6A0002414V 

XLI'OF' 

AL2 (AFT) 



GO TO AIT FO AM 



GO TO ALT FOR SYNC CHAR 



GO TO ALT PARA FOR POST ID 

GO TO \LT PARA 2-00 OE DATA AND CC 

GO TO ALT FOR POST DATA 

SET NOT BUSY NO ERROR 

BRANCH TO NFW ROUTINE 

ADDR OF WR DATA PARA 

GO TO ALT PARA FOR INIT SET TO 8 

RESET 

GO TO ALT FO AM 



DATE 
EC NO. 



02MAR70 
571512 



01AP370 
571516 



06HAY70 
571513 



01JUL70 
571524 



PROG ID 
PAGE 



0301-3 
8A 



IBK MAINTENANCE DIAGNOSTIC PPOGRAH 



PART 
PAGE 



NO. 



5129613 
9 



B013 



FILE CONTROL UNIT FLT SECTION 2 



ERR LCC 03JFCT CODS 



ADDP STI»T SOURCE STATEMENT 



1967 OE 

1969 UC2 
196A OE 
196B 1A10 

196D 4ECO00O00O 

197 2 OA 

1973 1F04 

1975 6A0O0E10U103010 

1970 1111111111111111 
19=35 31 

1986 OA 

1987 1F01 
1989 5A 

198A 6A0001 3517151111 

1992 191919 

1995 6AC001 1";17151 111 

199D 111111 

19A0 5E 

19A1 72C0FD15 

■9A5 1611 

19A7 06 

19A8 1E01 

19AA 6AFF133511113110 

19B2 1110 1110 11101110 

19PA 101111101031 

19C0 2A00 

19C2 6AFF0101 

19C6 UA 

19C7 OABE 

19C9 HO 

19CA 02 

19CB 22 

19CC 2A10 

19CE 5A 

19CF 6A00011111111111 

19D7 111113 

19DA 5E 

19DB 6AFF06 111 1 1010 11 

19E3 31 

19E4 400D 

19E6 6A00024040 

19EB 12 

19EC 5A 

19ED 6EG0004^1535151 

19F5 £151515151535151 

19FD 51515. 

1A00 55 

1A01 12 

1A0 2 5\ 

1A03 6AOE010505050101 

1A0B 010101 

1A0E 5E 

1A0F 12 

1A10 5E 

1A11 6A00021535 

1A16 6A540119 

1A1A 6AFF0111 

1A1E 6AABC130 

1A22 6AFC0111 

1A26 12 

1«27 5A 

1A28 CAFF011012101010 

1A30 101010 

1»33 5E 

1A34 6ACO0A101 1101 1 10 

1A3C 1114113011 

1A41 12 

'iAU2 5E 



1967 
1969 
196 A 
196C 
1971 
1972 
1974 
1985 



19B6 
1988 
1989 
1994 

199F 

19A0 
19A4 
19A6 
19A7 
19A9 
19BF 



19C1 
19C5 
19C6 
19C8 
19C9 
19CA 
19CB 
19CD 
19CE 
19D9 

19DA 
19E3 

'.9E5 
19EA 
19EB 
19EC 
19FF 



1A00 
1A01 
1A02 
1A0D 

1A0E 
1A0F 
1A10 
1A15 
1A19 
1A1D 
1A21 
1A2 5 
1A26 
1A27 
1A32 

1A33 

^\no 

1A41 



1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1010 
1010 
1011 
1012 
101 3 
101 a 

101 « 
1015 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1021 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 

102 9 
1030 
1031 
1031 
103? 
1J33 
1033 
1034 
1035 
1036 
1037 
1038 
1038 
1038 

103 9 
1040 
1041 
10*2 
1042 
1043 
1044 
1045 
10U6 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1053 
10 54 
1055 
1055 
1056 



IDLZ 



FT 



sump 



STARE 



POPT 



1AU2 1057 DORY 



DC 
CC 
DC 
DC 
DC 
DC 
DC 
DC 



DC 
DC 
DC 
DC 

DC 

DC 
DC 
DC- 
DC 

DC- 
DC 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC- 
DC 

DC 

DC 

DC 
DC 
DC 
DC 
DC 



DC 
DC 
DC 
DC 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

DC 
DC 

DC 
DC 



XL1 ' OE' 

AI2 (SUMP) 

XLVOE ' 

AL2(STARE) 

XL5'4E00000000' 

XLI'OA • 

AL2 (ARNE + 3) 

XL17'6A0O0E10141030 10 111 1111 11 1111 11131' 



GO TO AL FOR SYNC CHAR 

GO TO ALT PARA 
FOR ID 
TEST STATUS 
COMP DFCR 
DFCR LOCATION 



XLI'OA' COUP DFCR 

AL2(APNE) DFCR LOCATION 

XLV5A* SET SENSE SY BIT 

XL1T6A0O0 13517151 111 191919' 

XL11 '6A00011517151 111111111' 

XLT5F' SET SENSE 3Y BYTE 

XL4' /200FD15' 

XL2«1611' COPIP DATA 

XI.1'06' COMP DFDR 

AL2 (BAR3+1) 

VL22 , 6AF' : '1^3511113110111011101110^101C111^0103^ , 



XL2'2A00' 
XL4'6AFF0101' 
XLV4A' 
AL2(HASH) 
XL1 • 40' 
XL1 '02' 
XLV22' 
XL2' 2A10' 
XL1 ' 5A' 



SET NOT BUSY NO ERROR 

BRANCH TO 1EW TuuTINE 

ALT PARA FO*> INIT SET TO 8 

1 OSC 

SET TO 8 INIT 

SET BU^Y ON ERH OF? 

SET SNS BY BIT 



XLHT,ftO0011111111 111111113' 



XLT5S' 



SFT SENSE BY BYTE 



XL9'6AFP0611 1110101131 • 

XL2'400D' 

XL5'6A00024040' 

XLI'12' RETURN TO MAJOR PARA 

XLV5A' SET SENSE BY BIT 

XL19'6E000041515 35151 5151515151535151515151' 



XLV5E' SET SENSE BY BYTR 

XLV12' RETURN TO MAJOR PARA 

XLT5A' ALT PARA FOP SYNC CHAR 

XL11 » 6 A0E01 505050 101 010 '01' 



XLT 5E' 

XIV 12' 

XL1 • 5F' 

XL5«6A00021535« 

XL4'6A540119' 

XL4'6AFF011 1 ' 

XL4'6AAB0130' 

XL4«6AFC011 1' 

XL1" 12* 

XL1'5A» 



SET SENSE 
RETURN TO 
SET SENSE 



RETURN TO 
SET SENSE 



BY BYTR 
MAJOR PARA 
BY BYTR 



MAJOR PARA 
BY BIT 



XL11 '6AFF0 11 01 2 101 010 101010' 



XLV5E' SET SENSE BY 

XL13'6AOO0A101110l 110 1 1 1 4113 01 1 ■ 



BYTE 



XLT 
XLT 



12' 

5E' 



RFTUSN TO MAJOR PARA 
ALT PARA FOR DATA FLD 



DATE 02HAR7C 

EC NO. 5 71512 



01APR7" 
571516 



06BAY70 
571513 



U1JUL70 
57152<« 



PROG ID 
PAGE 



OB01-3 
9 



IBB MAINTENANCE DIAGNOSTIC PROGRAM 



PART NO. 

PATE 



5129613 
9A 



B013 



FILE CONTROL UNIT FLT SECTION 



ERR LOC OBJECT CODE 



ADDR STMT SOURCE STATEMENT 



1AU3 
1AUB 
1 AUC 
1A50 

ueu 

1A59 
1A5F 
1A60 
1A6 1 
1A69 
1A71 
1A72 
1E0O 
1E00 
1E0 1 
1F01 
1F02 



6AO002O101 

6ACE0101 

6A0001 11 

7200FD15 

6*00023515 

6AFF03 153111 

12 

55 

6AFFOE1010111110 

10 1111 1010111110 

30 

12 

CO 

00 



1A47 
1 AUB 
1 AUF 
1A53 
1A5fl 
1 A5E 
1A5F 
1 A60 
1A71 



1A72 

1 EOO 
1F00 
1F01 
1F0U 
022A 
0222 



105" 

1059 

1060 

1061 

106 2 

106 3 

1U6H 

1065 PLUM 

1066 

1066 

1066 

••067 

1068 

1069 0AFV 

1070 

1071 ARNF 

1072 

1073 LOAD 

107U HALT 



FFFF 1075 



DC 
DC 
DC 

DC 
DC 
DC 
DC 
DC 
DC 



DC 

OPO 

DC 

DS 

DC 

DS 

not; 

EQU 
END 



XL5'6A00020101 ' 
XLU'6AGE0101* 
XLU'6A0001 11 • 
XLU'7200FD15' 
XL5'6A00023515' 
XL6'6AFP0 3 i 5 311 1 • 
XL 1' 12 • 
XLV 5E» 



RETURN to major para 
ALT PARA FOR POST DATA 



XL ^'fiAFFOEIOiOII 1 '11010 1 11 110 10 1111 1030' 



XLV 12' 
X' 1E00' 
XL1 '00« 
CL256 
XLVOO' 
CL3 

X'022A » 
X'222' 



RETURN TO MAJOR PARA 
DATA FIELD 
CONTROL FIELD 



DATE 
SC NO. 



02MAR70 
571512 



01»?i.7C 
571516 



06HAY70 
571513 



1JUL70 
57152*4 



PROG ID 
PAGE 



0901-3 
9A 



IER HAINTENANCF DIAGNOSTIC PROGRAH 



PART NO. 5129613 

PAGE 10 



B013 FILE CONTROL UNIT FLT SECTION 2 



CROSS-REFERENCE 



SYRBOL 


T 


LEN 


VALUE 


DEFN 


REFERENCES 










ABNER 


A 


002 


13C1 


0617 


0077 


0104 


0382* 


0392* 


395 




ABYSS 


A 


004 


135B 


0581 














ACRID 


A 


004 


114A 


0454 


0152 












ACT 


A 


004 


107E 


0392 


0388 












ACT1 


A 


004 


1445 


0677 


0026 












ADV1 


A 


04 


0CBE 


0'75 


0306 
044 1 


0310 
0457 


0312 


0315 


0347 


0369 0403 


ADV2 


A 


04 


0CBA 


174 


0170 


0222 


0224 


0318 


0323 


0325 0409 


ADV3 


A 


0C4 


0CB6 


017 3 


0203 


0205 


02 09 


0211 


0243 


0400 


ADV4 


A 


004 


0CB2 


C172 














A3V5 


A 


004 


OCAE 


0171 


0197 


0199 


0419 


0421 






AFT 


A 


001 


192C 


1037 


0844 


0919 


0978 


1002 






ALMS 


A 


005 


1 3FB 


0642 


0016* 


0028* 


0062* 


0063* 


01 10* 


0490 0503 


ALOS 


-i 


04 


CA42 


0026 


0024 


0677* 










ALOFT 


A 


006 


UA46 


0027 


0693 












ALTAR 


A 


002 


13EF 


0636 


0214* 


0218 










AHILE 


A 


0C6 


0C8C 


0164 


0112 












ANDES 


A 


0C1 


1252 


0521 


0475* 


0476* 










ANDY 


A 


001 


1298 


0529 


0164* 


0168* 


0226* 


0238* 


04 75 




ANISE 


A 


004 


12C0 


0541 


0538 












ANNA 


A 


001 


13F0 


0637 


0184* 


0187 


0191* 


0193* 






ANNE 


A 


002 


135F 


0583 


0018 


0097 


0536 








ANO 


A 


001 


13F1 


0638 


0405* 


0407* 










ANT 


A 


004 


106D 


0387 


0261 


0263 










ANTE 


A 


004 


10A4 


0402 


0"38 












ANVIL 


A 


004 


130F 


0563 


0541* 


0563 










ANY 


A 


002 


13AC 


0611 














ABBOR 


A 


04 


1307 


0561 


0545 












ARID 


A 


002 


13A4 


OS07 


0406 












AltNE 


A 


001 


1F01 


1071 


0027* 


0039* 


0044* 


0051* 


0056* 


0067* 1 96 












0813 


0862 


0?25 


0929 


1009 


1012 


AST 


A 


10 


13BF 


0616 


0257 
0446* 


0259 


C377* 


0378* 


0379* 


0380* 0391 


ATTIC 


A 


004 


12CA 


0543 


0562 












AVA 


A 


04 


OCFA 


191 


0185 












AIE 


A 


004 


1086 


0394 


0390 












AZEROS 


A 


002 


12FA 


0558 


0554 












BALL 


A 


014 


OFDO 


0357 


0334* 


0339 










BAH 


A 


002 


13C7 


0620 


03C4* 


GJ05 


0308* 


0309 






BANA 


A 


0C4 


0D1C 


02C1 


0124 












BARN 


A 


001 


1E00 


1 069 


0045* 
0819 


0046 
0825 


0046* 
0948 


0058* 
1020 


0059 


0G59* 0060 


BASK 


A 


C04 


131A 


0565 


0532 


0567 










BASS 


A 


004 


12A7 


0534 


0038 












BAT 


A 


004 


108A 


0395 


0391 












BDPAFB 


A 


029 


0C8B 


0162 


0157 












BEA"" 


A 


004 


10CA 


0412 


041 1* 


0412 










BEIGE 


A 


03 


13CC 


0622 


0178* 


0179* 


0372* 


0373* 


0542* 


544* 


BELL 


A 


002 


13C5 


0619 


0300* 


0303* 


0307 








BESS 


A 


002 


135D 


0582 


0017 


0098 


02«7 


0314 






BETH 


A 


004 


0D02 


0193 


0186 












BOSS 


A 


004 


1299 


0531 














BOUT1 


A 


015 


1U9E 


0695 


0684 












BODT2 


A 


015 


14AD 


0696 


0687 












BKACT 


A 


06 


ODCO 


0244 


02 36 












bra: 


A 


002 


1603 


0794 


0054 












BROAD 


A 


002 


13E9 


0633 


0201* 


0202 










BPOKE 


A 


0C4 


036 9 


0093 














BRUSH 


A 


004 


0B5F 


0088 


0085 












BRUTE 


A 


06 


0E17 


0266 


0292 












BSTND 


A 


001 


13D4 


0625 














BOG 


A 


004 


1183 


0470 


04 9 8 












BUSN 


A 


006 


122E 


0515 


0489 












BWANA 


A 


004 


0E62 


0284 


0252 












CALL 


A 


022 


124D 


0517 


0508 












CAN" 


A 


4 


1JD3 


0624 














DATE 




0^"1AR70 


1 APR70 


06AAY70 


01JUL70 






EC NO. 




571512 


571516 


571 


513 


571524 







0402* 0477 0532* 0535+ 0583 



0384 0387 0389 0397 0397* 



0283* 0484 0582 



PROG ID 
PAGE 



0B01-' 
10 



IBM MAINTENANCE DIAGNOSTIC PROGRAH 



FILE CONTROL UNIT FIT SECTION 2 



PART 
PAGE 



NO. 



5129613 
10A 



CROSS-FEFEPENCE 



T T.EN 


VALUE 


DEFN 


REFERENCES 
















A 06 


OD60 


0221 


0128 


















A OOU 


13*3 


0608 


0227* 


0230* 


0231 0235 


024U 


024U* 


02 45 


0284 0294 






A 004 


0CS6 


0186 


0192 


















A 001 


13A9 


0609 




















A OOU 


OD32 


0207 


0125 


















A 0C1 


OAOO 


0002 




















A 002 


13F4 


0640 


0229* 


0233* 


0250 














A 00 1 


OA03 


0006 


0269 


















A 004 


137D 


0590 




















A 0O2 


1357 


0579 


0079 


0083 


0455 














A 002 


1355 


0578 


0454 


0456 
















A 015 


140 8 


0698 


0659 


















A 015 


14E7 


0699 


0662 


















A 015 


14F6 


0700 


0665 


















A 028 


1UC9 


0697 


0668 


















A 001 


1604 


0795 


0794 


















A 004 


0E6E 


0287 


0286 


















A OOU 


OFUD 


0083 


0081 


















A 04 


OB3D 


0079 


0076 


















A 007 


1343 


0573 


0032* 


0036* 


0042* 0049* 


0052* 


0266* 


0515 








A 004 


OCDA 


0183 


0237 


0278 
















A 0C4 


OCEA 


0187 


0194 


0317* 
















A 005 


0E3D 


0275 


0270 


0273 
















A 004 


OC92 


0165 


0103* 


0169 


0327* 0360* 














A 001 


1AU2 


1057 


0970 


0989 
















A 002 


153F 


0712 


0065 


















A 004 


1059 


0382 


0398 


0448 
















A 004 


117C 


0468 


0497 


















* 002 


13C3 


0618 


0166* 


0167 


0383* 0394* 


0396 












A 006 


OCCC 


0179 


0180 


















A 002 


13AE 


0612 




















A 004 


1069 


0386 


0101* 


0399* 


0447* 














A 006 


OCC6 


0178 


0165 


















A 001 


13D5 


0626 




















A 003 


0SA6 


0108 


0029* 


0035* 


0041* 0048* 


0053* 


00 64* 


06 ^* 


106 






A 0C4 


0D48 


0213 


0126 


















A 06 


0C96 


0166 


0181 


















A 001 


1715 


0839 


0838 


















A 0C4 


0BA2 


0107 


0105 


















A 0O1 


13AF 


0613 


0109* 


OH" 


Ml 13 0115 


0118 


0164 


166 


3196 0202 C2 


C3 0215 


0221 








0226 


0,.' '.': 


317 0322 


0377 


3 7 3 


0379 


Oi80 04C5 0411 0418 


0462 


A 002 


13F6 


0'" 1 


0229* 


G 2 ■ u ■- 


L247* 0249* 


0251 












A 003 


130 6 


05 ' 


0549 


















A 004 


OA3F 


002 


0021 


002 i 
















A 004 


12E2 


0551 




















A 006 


103B 


0377 


137 


















A 004 


1203 


0499 


0471 


















A C02 


13C9 


0621 


0267* 


0268* 


0271* 0272 


0274* 


0275 


12 0* 


32 1 * 3 22 






A 05 


1 348 


0574 




















A 004 


11FF 


0498 


0469 


















A 004 


0DE6 


0253 


0100* 


024 1* 


0443* 














A 004 


OEEO 


0320 


0134 


















A 004 


1166 


0462 


0459* 


046 


04 6 1 * 














A 003 


13DE 


0629 




















A 008 


097A 


0096 


0091 


















A 004 


ODEE 


0255 


386 


















A 002 


0FD2 


0358 


3 15 


















A 004 


0E13 


0265 




















A 001 


13AA 


061 




















A 004 


OA68 


0034 


310 


















A 004 


0F86 


029 3 


.'53 


0255 


0431* 0U34* 














A 004 


140A 


065 i 




















A 004 


OEUE 


0279 


02 64* 


0279 


0291* 














A 002 


13B5 


0615 




















A 004 


0B7B 


0^7 


3 3 


003 7 


0043 0050 


005^ 


65 


00 71 








A 0O2 


1 389 


0594 




















02KAP 


'7 


1 A P R 7 


06MAY70 


1.1UL70 










PROG 


IP 


571512 


571516 


571513 


671524 










Pf,R: 





'): : 01- I 
10 A 



IBH MAINTENANCE DIAGNOSTIC PROGRAM 



PART NO. 
PAGE 



5129613 
11 



B013 



FILE CONTROL UNIT FLT SECTION 2 



CROSS-HEFEPENCF 



SYflBOL 


t le:i 


VALUE 


DEFN 


REFEPI 


:nces 












GO OUT 


A OOU 


12EC 


0554 


0073 


0161 


0514 










GPAIN 


A 004 


105D 


0383 
















GULP 


A O01 


1444 


0675 


0651 














HALL 


A 002 


0F99 


C355 


0057 














HALT 


C C01 


0222 


1074 


0C93 


0159 


0344 


0366 


0511 


0551 0672 0691 




HARK 


A 002 


1714 


0838 


0034 














HASH 


A 06 


OABE 


0051 


1025 














HERE 


A 0't 


1509 


0709 


0702* 


0709 












IDLE 


A O01 


19C9 


1026 


0840 


0916 


0998 










KAT 


A 003 


1264 


0525 


0483* 














KELP 


'. 04 


0E5E 


0283 


0281* 


0283 












KIT 


A OOj 


126 1 


0524 


0482* 














KITE 


A O05 


125E 


0523 


0477* 














KNIT 


A 07 


1259 


0522 


0019* 


0020 


0022 


0478* 


0479* 


043 0* 04 31* 




LACY 


A 0C1 


ODEA 


0254 


0280 


0286 


02 90 


0296 


0293 






LAP 


A 002 


134F 


0576 
















LEGAL 


A 002 


1333 


0592 
















LIMP 


A 004 


CC6B 


0161 


0139 














LINT 


A 004 


113E 


0450 


0151 














LOAD 


C 001 


022A 


1073 


0556 














LOG 


A O02 


1958 


0996 


0047 














LONG 


A 004 


1387 


0593 


0594 














LDG 


A 001 


1959 


0997 


0996 














HALL 


A 0C6 


OFOC 


0334 


0057* 


0335* 












BASK 


A OOU 


12BC 


053 9 


0531* 


0534* 


0539 










HASS 


A 004 


12B1 


0536 


0533 














HAT 


A 004 


1074 


0389 


0393 














RAY 


A O02 


138B 


0595 


0029 


0035 












MINT 


A 004 


1128 


0443 


149 














HOPE 


A 004 


139D 


0603 


0027 














HSGODT 


A 027 


148F 


0694 


0656 


C680 












NAIL 


A 004 


102 3 


37 1 


0328 


0346 


03 61 


0368 








NEON 


A 006 


11A2 


0477 
















NIBS 


A 009 


126F 


0527 


0468* 


0470* 


0490* 


0491* 


0492* 


0515* 




NOR 


A 002 


13SD 


0596 


0041 














NOT 


A 04 


1251 


0520 
















OGLE 


A 0f> 


117B 


0467 


0491 


0493 


0494 


0496 


0496 






ONCE 


A C04 


14F7 


0702 


0473 














ONE 


A C03 


13D8 


0627 


0168 


0171 


0172 


0173 


01"'4 


0175 0179 0230 0238 0265 










0407 


0451 


05 4 2 


0544 








ONLY 


A 004 


113E 


0473 


0015* 


0703* 












OPERA 


A 002 


138F 


0597 
















OPINE 


A 002 


1266 


0526 


0472* 


0474 


04 74* 


0484* 


048"» 






OPUS 


A 049 


15 


0710 


7 07 














ORB 


A 0C6 


OAbo 


0056 


0674 














ORE 


A 004 


0D7E 


0228 


0423* 


0424* 


0427* 


0423* 


0437* 


0440* 




ORGY 


A 0C4 


109C 


0399 


0385 














PALL 


A 004 


121E 


0509 


0504 














PAiHS 


A 005 


1364 


0584 
















PANDA 


A 005 


0BA9 


0109 


0176 


0216 


02 19 










PANT 


A 050 


1022 


0370 


0332 


0343 


0365 


06 7 1 


0690 






PART 


A 06 


0D78 


0227 


0239 














PASS 


A 004 


1 316 


0564 


0056 


0535 












PEEP 


A 004 


0C5B 


0154 


01 14 


01 16 












PGBT 


A 004 


0CF6 


0190 


0183* 


01 88 


01 90 










PINE 


A 002 


1391 


0598 
















PLOH 


A 001 


1A60 


1065 


0972 


0991 












POND 


A 001 


13F2 


0639 
















POOP 


A 004 


1 15A 


0459 


0153 














PORT 


A 001 


1 A27 


1052 


0941 


0987 












PRINT 


C 001 


021A 


0518 


0088 


0154 


0329 


03 36 


0340 


0362 0499 0505 0509 0546 










0657 


0660 


0663 


0666 


06 69 


0678 0692 0685 0688 0704 


PROD 


A 0C6 


ODOA 


0196 


123 














RACE 


A 004 


ODD 6 


0249 


0246 














RACY 


A 004 


0D9" 


0235 


0232 














RASH 


A 0C6 


03CE 


0067 


7 14 














DATE 


02NAR70 


01AP370 


06MAY 70 


01.7UL70 








EC NO, 


571512 


571516 


5715 13 


571624 









064 8 065 3 



PROG 
PAGE 



ID 



OB01-3 
11 



IBH HAINTENANCE DIAGNOSTIC PROGRAM 



FILE CONTROL UNIT FLT SECTION 2 



PART 
PAGE 



NO. 



5129613 
11A 



CROSS-REFERENCE 



SYHBOL T LEN VALUE DEFN 



REFERENCES 



002 
OOU 
001 
OOU 
001 
002 
001 
001 
002 
OOU 
06 
OOU 
002 
002 
001 
001 
OOU 
OOU 
002 
OOU 
006 
06 
OOU 
006 
006 
OOU 

ecu 

OOU 
001 
006 
OOU 
OOU 
0C2 
002 
OOU 
OOU 
001 

oou 

001 
OOU 
OOU 
OOU 
0C6 
002 
001 
OOU 
OOU 
00 J 
002 
002 
001 
005 
06 
06 
006 
002 

oou 

002 
OOU 
C06 
OOU 
006 
007 
OOU 
OOU 
OOU 



1393 
138 1 
15U0 
0DA2 
139E 
13ED 
0A10 
13FC 
OA07 
0E7E 
0ED6 
OECE 
158U 
131D 
1365 
020A 
0FD3 
10B2 
1395 
0EA6 
10AC 
1130 
0E96 
11D9 
1371 
OEOF 
Oi.07 
1353 
1585 
102D 
0A7C 
1379 
OBDD 
OBDB 
0BD6 
11CF 
1A10 
10CE 
181 1 
1375 
ODBC 
OEFA 
0A9A 
1810 
1A02 
1037 
0D58 
1 3C ¥ 
1397 
1786 
1787 
13UD 
1336 
13 3C 
1 330 
13EU 
1110 
13ES 
13F2 
0D72 
ODDA 
132 A 
132U 
0B2E 
0B59 
118A 



0539 
0591 
0713 
0237 
060U 
0635 
0012 
06U^ 
0008 
0291 
0317 
031U 
0735 
0567 
0585 
06UU 
0360 
0U06 
0600 
0303 
0U05 
0UU6 
0297 
0U91 
0587 
026U 
0262 
0577 
0736 
37 3 
0038 
0589 
0121 
0120 
0119 
0U89 
10U-S 
0U1U 
0912 
0588 
0231 
0327 
OOUU 
0911 
10U1 
0375 
0218 
0623 
0601 
0870 
0871 
0575 
0571 
0572 
0570 
0631 
0U3U 
063U 
06 3 
0226 
0250 
0569 
0568 
0075 
0086 
0U72 



00U8 
0592 
0712 
0099* 



0003 
001U 

0239 
0133 
0132 
0070 



0136 
0U08 
0053 
0131 
01U0 
0150 
0293 
0516 
0UU6 
0258 
0256 

0735 

037U 

0869 

0039 

0119 

0117 

0117* 

0031* 

nq?3 

01U2 

0911 

OOUU 

025U 

0135 

0995 

OOUO 

0921 

0371* 

0127 

0178 

0030 

0870 

0110 

00U9 

0052 

00U2 

0213 

01U6 

0207* 

0051 

0129 

02U3 

0036 

0016 

0072 

0075* 

25 



006U 



02U0* 0277* 



006' 



0260 0262 0295 0297 



0120 

0118* 
0061* 
inns 



0962 
0375 

0372 



0266 



0208 
0067 

04UU 



0032 
0095 
0082 
0107 



0930 100U 



0U52 



0062 
0513 
0086 
0189 



0553 
0193 



020U 0210 )223 0282 0311 032U 0U2O 0'»h- 



02KAP70 
5715T: 



01 APR70 
571516 



06P1AY'. 
571513 



1J0L7 
57152U 
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ID 
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12 



B013 



"ILE CONTROL UNIT FLT SECTION 2 



CROSS-REFERENCE 



SYMBOL 


T 


LEN 


VALUE 


DEFN 


REFERENCES 












TWO 


A 


003 


13DE 


0628 
















ON IT 


A 


040 


1297 


0528 


0488 


0493* 


0494* 


0495* 0496* 


0502 






UNPACK 


C 


0C1 


021E 


0519 


0485 














VARY 


A 


oou 


10FO 


0423 


0143 














VIP 


A 


002 


1399 


C602 
















VI RG 


A 


OOU 


0326 


0072 


0792 


C837 












HAD 


A 


C02 


13A0 


0605 


0414* 


0416* 


0543* 


0561 








HAIL 


A 


014 


0F4 3 


0348 


0334 


0355 












WARY 


A 


004 


10FC 


0427 


0144 














WED 


A 


002 


13A2 


0606 


0415* 


0417* 


0418 










WHELK 


A 


006 


10C4 


0411 


0141 














WINE 


A 


004 


1108 


0431 


0145 














WIRE 


A 


004 


1118 


0437 


0147 














WIRY 


A 


004 


1120 


0440 


0148 














WORK 


A 


0C4 


0E9E 


0300 


0130 














XF1 


C 


001 


0001 


0580 


0030* 


0034* 


0040* 


0047* 0054* 


0065* 0070* 


0109 


0171* 












0175* 


0213* 


0214 


0215* 0218* 


0265* 0275 


0451* 


0476 


YELP 


A 


004 


0E56 


0281 


0276 














YCRE 


A 


002 


0B55 


0087 


0080 


0084 












YORK 


A 


004 


OEAA 


0304 


0301 














ZSHOS 


A 


004 


12FE 


0559 


0558 














'.ONE 


A 


004 


0PE2 


0252 


0102* 


0242* 


0450* 











0172* 0173* 0174* 
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PAGE 
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OBJECT CAPD LISTING 

THE CHARACTER INDICATES A BLANK COIORN AND THE CHARACTERS D E H INDICATE NUMERIC SHIFT. 

CL 1 THROUGH 16 CI 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THSO'JIH 64 CL 65 THROUGH 80 CL 81 THROUGH 96 



TAOYG*A< B/ 



J3UB0130001 



T+-ZDYC %A Q L"C2GDQ8< 1 | #D2S 1 Z A () <ECLP3 BSD V* 9NAIO0I H|?-SDV- D Y =0H*HS%3GDQ, /1G 1:080130002 

T+-Z"JS0CG0SLXL3 OD"*< S>YD«%5 J; F|H*J4 0FD4<LKB G37%5 J*"1C D.DA + .C QL5KD0H*. ;9E GGD* C/^3O13OO03 

T + -D:C <-AA(9(6D QD AB: -LT5 0FD4 < L<<BGB7'*< laDD^S a A t"C | 3 ; "/* " (S D RO AB:- L'J00FD4< L {% P8Y30130004 

T*-.5/0_#C <-AA| SC QI'GIOC D.DA + N(SDC 3BGE7*< 14 DD1Q< &iJC9Ui A* "C | 3 ; "/*" I *P : CO GD) 3Z1S0130005 

T+-J0C <L=KU||0 L'00AB:-LU3MAEL" /0_#C <-.A*| s J ; AB: -LVLS A2QL /0_* OH*. . S3GD>0 4B % RJ B01 30006 

T + -_,P<FSB341Y 1 | A3:DA<E<LN3FTB5t A y-_ (0 H* . OLFTD 5* 1 Y 0_; EH . PJ3 G35 W <BG /,FB _: Y | /OH 71 B0130007 

T«-->»HD C0H*.<UC R1*R. S|G0<E0LP3F UD549/06T| *(930 GDFY3AQ7T| *<'J3F TD3G AY ->Sa> Y*D0 H* JS?< "Y%30130003 



T(-?) *AA+3A JD"%LLL-3D:" U 2 < + DL , "H&WC5: D : " 2/ID< S?R3'*» 5? ?D : » /C?}3'4 



K DB01:0009 



T*-0ROH* (B%SGCJ3 /042 OH* (K<BGCNT /0 5-0 H* ( *%BGC Zt /O : WO H* ♦ 3%3GC_ $ /0»- H*+=%3GC ' | /1 -Y 530 1 3001 

T+-1!H-a3GDHL /01 ,0H*&,<EGD<L /1C ♦0H*&d<BGD | 3 /1D H0H*JD<3GDJT /ID -0 1* JH<BGDLC /1D =0H* PYCB0130011 

T+-2IDK, /1EE0H* 3F*Q) C K>- 333G 3H - 3dBGD>3 P6) $G6*G M5<PR6)$?5FA 0%G DC (- A6 *G.",0 ; | E6S0 DZ- OD*B0130012 

T«--3HD#C /03FC L0/+?<E<L00d DZ~ L6< ACI. /02:(-D L6CQAD'-6 J|Q(-D L6CQAD'T /0>ZC H L3A< "5*30130013 

T+-UE30SBDiOL6< AC<3 /02O( -< = L0 C"CAY 3 : E H ( TU D"C -63&0H*JS%3 GC|Q: J|00H*<9TY SD" 5/M3O13O014 

T + -5 OH*<:-4CG0& L%9BACH» /1FH0H* <,TBDD=U{ J|ZD#G -S260 H* JS*3 GC . Q 0Z/| , CSDL: 1 + 1 OHD <_* 1AUBO13O015 

T+-5#/1FH0H*<_TQ AD=S4 J|?(5DL%*3 GB:U5 J|?0H*.DEU G- LX<3AC, /IF H0H*<>-0 DZ-H&O D:- 09130130016 

T+-66D* d>RA|3|DS L * &03D: *L6L- HD : $ 2U -#A A | 3 + OSL ' L- AD:P2UA* /03EC0 KWA|Q0 D(;C2GCK< JA04 3,330130017 

1 + -719J0GC;I /02 6C-<LDA+Y+ DLZ3B SC) Q: B A | 50H * { 6?% HD"?» 1 Y 1 | <4<?.< L * % 3 GCW. /0:FOH*(TCS CY* 1 4 BO 1 1 00 1 3 

T*-8«d/ K + B L>)H 5D3 — D#X2D 3 /1A _0h**C3BGDF4« B 9 J(-DL6 Q1D4CLLL3 TD«U#- A | I | SHH S ACT4 R/330130019 

T+-9X+1 L2I-BDST «•«■/ L2W4 /| 10 D + NTOGCE| /03 SO H*+ L%3GC; Y 4 B 9 /0 H* JS*3GC V8R BA + WOA 7C4B0130020 

T*-:SCW# /07D<EE LPLOJG-C /09^0H* (:TGHCVG /CflPOH* +VT-HD:S D P|0H* (:%3GC~ M /07C|< L1< = ^30110021 



DATE 
EC NO. 



02MAR70 
571512 



01APR70 
571516 



06MAY70 
571513 



01JUL70 
571524 



PROG II 
PAGE 
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12 A 
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B013 FILF C NTBOL UNIT FLT SECTION 2 

OBJECT CARD LISTING 

CL 1 THROUGH 16 CI " THROUGH 32 CI 33 THROUGH US CL 49 THROUGH 6 4 CL 65 THROUGH 80 CL 81 THROUGH 96 

T + -#)/0:D|D L1C9 ?D3*3 /|G0A <?TF TD3M0Y1IG+ HL1* 6C. t /I FH0H*<?TF UD57 /02=C <:1+ 00H* 7*0B0130022 

T*-9QC.Y0Y1| 1+"- L2S4 D3UL5KBAC. , /1 FH0H*OT2GCl | /I T0H*BFUD WDAE -a) 0(C (S08AC1D | 4* 2E8B0 1 3002 3 

T+-'L/OHE L*|«<B G /YFCA S0H*3HDC 00H*S HSBGC. 9 , OCC W3 ' . 2E3E-9? | R2W ? AQ+$3 6-1 , 0OCW3= . 2E3D K,3B01300?4 

T+ _= +a+ $ 36-1, One W3=.2&DA &DA SDA REA SDA,OOCK3'. 2E3E-9? | L3J A SDA SEA SEA SDA CDA SD 7S 8B0 1 3002 b 

T + -"TSDA SEA CDA C4 ( 2*P 0'$U5;( 2;I 5>|H1)V S3T A5KC1 3DCH I) -L0* | E&<E-9? | J3U A SDA SD 4JYB0130026 

T + / D5EA SDA 5 +| *<U3BGDB| /OH EA-0SH%BG SH-d)<3 GD3| /02=5<|C9{P TS {-U4 = . E3UC05KC C1M #:*B0130027 

TV "5 «XO01?N-8^T 09 (| D& <• ES | GOQ (- R 1 ; . SS + . TO) XT ( - S+- 03D30L 30 SBDS L6< ADE7 /I 7C L?1< "TYB0130028 

T+/A:**0*D#8L%"o D*4L%S0 C#OL%&0 rD#5U6T0'JD5> 3>AA| 3+ D'„_? 5DI3 /07 > + H L?|HSBTS D## 2D % 33DB0130O29 

T+/B5«Y*<+/ LOO GDGS:BA| E<E<L0LF TD3<+BJ+"D#" /1A R| *&i%3GC.33> A3 D0H*<?-0 D" L%CF TD- 6 22Q30130030 

T+/C0CODL3J| QO D &*%BGC.Y< JC(D#G /I CH< HHL YCBTD : H #K A+-+7< LYS4 BD : D L%*BACH* /1FH0H* <,TY 'RQB0130031 

T + /D,T, 5" + U {-SB GC-8#& 5" + 4 (-SB GC. 33/0 : GO fi*<?T0 GCY- /02 = +2 (-.iS GC.3:H r "0H*<?T2 GC;» 29*60130032 

T+/EW0H* (*-0lD#3 L*L2GDF, /1AF|H* (SJQAD'T /052<ES LNLFUD5* 1 ZA ( SOH* <?T0 ADC^AZ AEW+OD JR34 K nB0130033 

T + /F/ A + 00HDO*B GDO, /02:P(N 5KA 1 + -K* -HC -C3 YDX | 2/7U3 AI 'W0H*:1 • 00 NDWMKR-0 DVHKWCS ADVD SK630130034 

T+/G*C <KP/9D<HH K N3BTD VU #K/I P+OD K CCBHD WDOZAIUC KR/8 0H*3G/-KR/H P0H*K . "OCD WUL=-0 EDXM -38B0130035 

T + /HPDP%aSAIZC D KVJE*C DKT1E*C D KSJE*C DK-IEtOEH J-<F-DQ| /Osl KS KV379D"- JH$0H* BF-Q 9-!"! B0 1 300 36 



T(JI (E/I (0H*BF/P /OHSY G /()%>0\1+ K# 0EDW3L&* BG D) V 6 * PP<4 JGC 1 1C AQ+ $ 34-1 , 0OCW9 « . 2 



300B01300:7 



T AIK 



0HHB01 30038 



T + /.K CGHD,3< 15) 331, XI HI ( -K?00 CGOS LETF WD5" 3 Y C /1. 0?i*K?C5H31H < A ', HD ' - Y/ + -C0H L3A< 5EHB0130039 
T + /<(6< ADO- /OH El — LAD F0H*3HD 30H*. . TFWD? , 3 Y C /OHc K-0 A 6*PFK4C ^C-G D : C DAH ; 2M BO 1 300 40 



T« /(H2*BGD0S 



BA )a.L"ICl8|C 03 | C2* i COo>| C3 3! | C 03 | C4i> |C0 2 | C 53 | C 03 | COS | COS | COS J C 03| F*DB0130041 



T+/+C»|C0d-BT N |""0 »J8 G0GR1*R 3)Z 



D A-QO^H VZ AQ -C"A D C - P7 8 #,0B0130042 



TH1 + ? A-A+DYRT / HDBY5+S HHAYOF 1 



AN 



tODBOl 30043 



DATE 
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C2MA^70 
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PAGE 13A 



OBJECT CARD LISTING 
CL 1 THROUGH 16 CI. 17 THROUGH 32 CI 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 31 THROUGH 96 



T<A|U 



DC 



AA S 



3 DB0130044 



T + /6S 



A- D 



B-|""0H*BFUDAI.DK -"<BG /YAF1K|0H* BF-D|E(T /OHE S3 M93 RRYB0130045 



T+/J)/0HE CdM'*B G / YAGAL I0H*SF-»! -DE. /0HSY|3 /0 , 0CC0GBU| /0HSCJ% «T : CSO H*3 F-D j E I # /OH JDCB0130046 

T+/KQF-D |SH7 /OH EA5«EH*BG SH-"<B GBOS 5'|A02N 4;L K5'J) PP 8UC')51C F0 = J 0_$A6*J 6-..13]( 6'C PIOB0130047 

T*-/LL6 (. 21"C25 (X 25 | C4C+ | OC ( . 29 | G 05 (-.LO* | E5< | EC (L S8UCP6) $ 31 .1CC53C J3_L0o>4CR i_L03 4C T5U 3 3E013004R 

T+/H+4-. S3|N 6-. «3)|J 8 ' Ft 4-.ja-I 6-^.P3-A 8»R 4-. G5)-D43A v <j *JT3>3 G /,A<A"! , Y G /1H IC(5 5I3B0130049 

T+/NI3^) 5)o.g<i iha E + . TO ; | U3 A 5<|T6)( 1_|DCDC D1 ? | 35 DCD1%L3&<L A83DN5D 3JIV9SH/ S?- 'S4301 50050 

T+/ODE3, PFAY + JY 1," 1Y ANZD D AODKLDKJY AY CFY L03DJDJDJD JP/Y CKY F- AK-* + EC 5- C 30 1 3005 1 



T + /0"- EKPWQbD< FGVZD DA<LDKLD 1<4 DF- W5 Q25 3 6F- FC 25 a 2JA 25 8SCE-2E %6: 



•H QK-301 30052 



T+/P:DA ET8E 1 CCI CTQE | 4WF- 



Y25 Y6C YE CU 



A: * 3V) Y 



<JDJDJDJDJP/Y 2Y *3D3G1 3 05 3 



T+/Q5 AY "IY.I/Q DC (KPWQDDESA- G AJ* COY 3/DJDJD JDJDJDJED C JDJD JD JDJD JD JDJDJD ID JKND SY3B01 30054 

T + /ROMNSJV.FJMNE JMN E JKNE J."! NEJ; NO NEL" JUID JDJKJOW Y /E3<I CKLS0<J < JDJJDJE;E~- FDJB JDJD 25230130055 

T + /E,DEY-- EHSD 0|WY AADJON2 |8 NA/8 E- 3(JDR+JD JD JDJDJD JD JO JD JD J<JED AVJHNEJKNE Jf.ND ".Ti-^BOI 30055 

T+/J HSNEJHf EJKNE JMNE90JHNJOY D1D J< J CJE JD 1 D JDJD JD JD JDJ< J "!F3- A 2 |3 NE- ?(JDR+JDJDJD JDJD 50 PO130O57 

T+/VDJDJDJ 1JDLD J^JDJDJF "18 - 8AAD CLDKLL- 3 FY CSH322 PF.63R2 SI ; HW Y «D + F;0 C0O013C05* 

T*/) *0(iY + SPA CD A CDAE?SADJ<JDJD JDJF;I 16--*- AMY JJ ES ? iAE A *ND JD JDJS;E- A<F,7 JF EE?3 EY < BO 1 * OO'- - 

T+/;P JDKDA CDA C3/3A ?a> A;E?3 HCADJD'A JDJ ODKY E?5A 1YH-A;G)U AKV9W.-S KHDDEI E°WY J 1 * 30 1 1 0060 

T*/-K"0DJDJDJDJD JD6ID"0DJBJDJDJD JL6RD HJDJDJDJD JD1DJDA 5DA KVVI ;F- DDJ IDGREE-i A50D 4"Q?01<00b1 

T*/- (E1EAEMEANV9 D IAEN7D E &HE AEKFA5NISE- ACHE ASttEACIF 5 A- 5 "3U PWY CE KK-Y KC3301 10062 



T + //HFA- J3/AKPN0 + F*VD IAGS8R# 8 E -8ED Y-^AD8 



E- CDA CDA 5DAC C< AA A&JIE AS&Y-. OY ?, 0,S301300M 



T*/SCCNZ> AAKN( JHN E JHNE J«5 EJHNE JPWY+ CND HN (OZ JVD" ODJE'J* A< F, 1 JD + FSJD HA OY + CD '--301*0064 
T + /S^E- ADPH OA"! Q; OY+ JN2C30 NF.-«A(C," JNDJ D NE-8A<" J Y JAD i CDA CDA CDA CDA C<A CrCP01<00^5 
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OBJECT CARD LISTING 
CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 43 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96 



T + /T g F _ SSBAES- 6EAKMNEJMKEJHN ( JM NEJM N8*F-ID H N(OZ* JVD"0DJED< A<F,# JED A 5DA 5DA -3&B0130066 

T*/UUDAE5<a"a*SD a"s8E?.-8EOF,- /E A- G-BFY ECDJDJE JDJDJDJD JDJ D JDJ D 1 DMEA C/X%C/YEE- B ELM E 1 4301 30067 

T+/V7EY ADO," JE D-OD 1 S? 8 AD& 8EI 08 FC-8EQBY E- A MY H W/VRC/XIMV9 HE- BS BD+ F; +F- H*F/ A + :3MB0130O68 

T+/WD HGOJP 8 SEA ODADJDJDJDJD J<&Y-- NZD D5E1M JDJURFCY JMPEJD JDJDJPXH "JMODE-Q ; OY 53YBO130O69 

T+/XV" KSDJDlDAD 5DJ ' J DADSDAD JDA* 1 H- AD"0CAK-D = E- h SH/AEE" ADJDJDJD JD J ( ; E?3FCJDS DAD IS '-i 3:0 30 130070 

t + / y-I-'s6D*KCW3 " DEJK5EJMSEJMNE LHNEJKNE; DVZCC-D EAS.1A SDA N3KPHY /M5SV5 AFO, " JE ODOD 82YB0130071 

T+/Z$<F,2* JDKOW, ""j'kDA EDA SPWY ?/ JDAD6DJ&J<AD KEWY -OA^-8A OY JE2 |4NE- B (JN D"0< 03-00130072 

TE/Z2ElDJDV9D"0 r 3 SDAPJDA JDJ 5DJD 6<AH V<B013C073 

N, 330130074 



T A8 



T ASA 



pnm * E7*=->nc" PHS ="7MSF| 



5 3Y 301 3 007 5 



T% ASC P A SO 



0S55O5017CO 71 07 0» » U30 1 30076 
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